diff options
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 |