[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 37e3a6e: * lisp/cedet/srecode/semantic.el: Use lexical-binding
From: |
Stefan Monnier |
Subject: |
master 37e3a6e: * lisp/cedet/srecode/semantic.el: Use lexical-binding |
Date: |
Mon, 4 Jan 2021 15:34:17 -0500 (EST) |
branch: master
commit 37e3a6eb3161c664ea1a81dcaadb0f29fdf162fb
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* 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(-)
diff --git a/lisp/cedet/srecode/semantic.el b/lisp/cedet/srecode/semantic.el
index 21ed1f9..101246c 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 37e3a6e: * lisp/cedet/srecode/semantic.el: Use lexical-binding,
Stefan Monnier <=