Avoid the use of ((lambda ...) ...) in lexical-binding code.

* emacs-lisp/easy-mmode.el (define-minor-mode): Use funcall.

Fixes: debbugs:11241

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4b031a5dfe9d57a5ab7ad827f5b04ffbb346f97d..caa11a844426bac30b51e5671aa73205c83b7b36 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-04-14  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       Avoid the use of ((lambda ...) ...) in lexical-binding code.
+       * emacs-lisp/easy-mmode.el (define-minor-mode):Use funcall (bug#11241).
+
 2012-04-13  Kim F. Storm  <storm@cua.dk>
 
        * emulation/cua-base.el (cua-exchange-point-and-mark): Just call

diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index 88698a1f0697bb8f1fe3c224dc417737a4aeed7e..0d6716a2e637effd6d6c960a8eae26b586d287d5 100644 (file)
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -260,7 +260,7 @@ the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'.
         ;; repeat-command still does the toggling correctly.
         (interactive (list (or current-prefix-arg 'toggle)))
         (let ((,last-message (current-message)))
-           (,@(if setter (list setter)
+           (,@(if setter `(funcall #',setter)
                 (list (if (symbolp mode) 'setq 'setf) mode))
             (if (eq arg 'toggle)
                 (not ,mode)