Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/cedet/srecode/semantic.el: Use lexical-binding

Browse source 
(srecode-semantic-insert-tag): Can't use `run-hook-with-args` on
lexical variable.
This commit is contained in:
Stefan Monnier 2021-01-04 15:34:12 -05:00
parent a79e1a85f8
commit 37e3a6eb31
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/cedet/srecode/semantic.el
View file

@ -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