diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-04-14 08:48:27 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-04-14 08:48:27 -0400 |
commit | 9c2d6a4ab2911db8c7ac531fe49d038df521f55b (patch) | |
tree | dfab188d35f27e1180d5fcc582c6856872c723ff | |
parent | 0be641c057c90f9d75b41c0a34f4bf8b7de81f27 (diff) | |
download | emacs-9c2d6a4ab2911db8c7ac531fe49d038df521f55b.tar.gz |
Avoid the use of ((lambda ...) ...) in lexical-binding code.
* emacs-lisp/easy-mmode.el (define-minor-mode): Use funcall.
Fixes: debbugs:11241
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4b031a5dfe9..caa11a84442 100644 --- 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 88698a1f069..0d6716a2e63 100644 --- 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) |