From 37e3a6eb3161c664ea1a81dcaadb0f29fdf162fb Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 4 Jan 2021 15:34:12 -0500 Subject: * lisp/cedet/srecode/semantic.el: Use lexical-binding (srecode-semantic-insert-tag): Can't use `run-hook-with-args` on lexical variable. --- lisp/cedet/srecode/semantic.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'lisp/cedet/srecode/semantic.el') diff --git a/lisp/cedet/srecode/semantic.el b/lisp/cedet/srecode/semantic.el index 21ed1f96ae6..101246cae6f 100644 --- a/lisp/cedet/srecode/semantic.el +++ b/lisp/cedet/srecode/semantic.el @@ -1,4 +1,4 @@ -;;; srecode/semantic.el --- Semantic specific extensions to SRecode. +;;; srecode/semantic.el --- Semantic specific extensions to SRecode -*- lexical-binding:t -*- ;; Copyright (C) 2007-2021 Free Software Foundation, Inc. @@ -57,7 +57,7 @@ This class will be used to derive dictionary values.") (cl-defmethod srecode-compound-toString((cp srecode-semantic-tag) function - dictionary) + _dictionary) "Convert the compound dictionary value CP to a string. If FUNCTION is non-nil, then FUNCTION is somehow applied to an aspect of the compound value." @@ -410,7 +410,9 @@ as `function' will leave point where code might be inserted." ;; Insert the template. (let ((endpt (srecode-insert-fcn temp dict nil t))) - (run-hook-with-args 'point-insert-fcn tag) + (if (functionp point-insert-fcn) + (funcall point-insert-fcn tag) + (dolist (f point-insert-fcn) (funcall f tag))) ;;(sit-for 1) (cond -- cgit v1.2.3