[Emacs-diffs] /srv/bzr/emacs/emacs-24 r107830: Avoid the use of ((lambda ...) ...) in lexical-binding code.

[Stefan Monnier]

------------------------------------------------------------
revno: 107830
fixes bug(s): http://debbugs.gnu.org/cgi/bugreport.cgi?bug=11241
committer: Stefan Monnier <address@hidden>
branch nick: emacs-24
timestamp: Sat 2012-04-14 08:48:27 -0400
message:
  Avoid the use of ((lambda ...) ...) in lexical-binding code.
  * emacs-lisp/easy-mmode.el (define-minor-mode): Use funcall.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/easy-mmode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-04-13 07:10:11 +0000
+++ b/lisp/ChangeLog    2012-04-14 12:48:27 +0000
@@ -1,3 +1,8 @@
+2012-04-14  Stefan Monnier  <address@hidden>
+
+       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  <address@hidden>
 
        * emulation/cua-base.el (cua-exchange-point-and-mark): Just call

=== modified file 'lisp/emacs-lisp/easy-mmode.el'
--- a/lisp/emacs-lisp/easy-mmode.el     2012-02-23 18:51:22 +0000
+++ b/lisp/emacs-lisp/easy-mmode.el     2012-04-14 12:48:27 +0000
@@ -260,7 +260,7 @@
         ;; 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)