diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-01-04 15:34:12 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-01-04 15:34:12 -0500 |
| commit | 37e3a6eb3161c664ea1a81dcaadb0f29fdf162fb (patch) | |
| tree | 7eab772359b5974ff997272bdbcd9d24cfbd9019 /lisp/cedet/srecode/semantic.el | |
| parent | a79e1a85f8f20911be3bbac883ee7bdffcfbe7a0 (diff) | |
| download | emacs-37e3a6eb3161c664ea1a81dcaadb0f29fdf162fb.tar.gz emacs-37e3a6eb3161c664ea1a81dcaadb0f29fdf162fb.tar.bz2 emacs-37e3a6eb3161c664ea1a81dcaadb0f29fdf162fb.zip | |
* lisp/cedet/srecode/semantic.el: Use lexical-binding
(srecode-semantic-insert-tag): Can't use `run-hook-with-args` on
lexical variable.
Diffstat (limited to 'lisp/cedet/srecode/semantic.el')
| -rw-r--r-- | lisp/cedet/srecode/semantic.el | 8 |
1 files changed, 5 insertions, 3 deletions
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 |