mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 14:30:43 -08:00
Code Issues Projects Releases Wiki Activity

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

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

Fixes: debbugs:11241
This commit is contained in:
Stefan Monnier 2012-04-14 08:48:27 -04:00
parent 0be641c057
commit 9c2d6a4ab2
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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> 2012-04-13 Kim F. Storm <storm@cua.dk>
* emulation/cua-base.el (cua-exchange-point-and-mark): Just call * emulation/cua-base.el (cua-exchange-point-and-mark): Just call

2
lisp/emacs-lisp/easy-mmode.el
View file

@ -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. ;; repeat-command still does the toggling correctly.
(interactive (list (or current-prefix-arg 'toggle))) (interactive (list (or current-prefix-arg 'toggle)))
(let ((,last-message (current-message))) (let ((,last-message (current-message)))
(,@(if setter (list setter) (,@(if setter `(funcall #',setter)
(list (if (symbolp mode) 'setq 'setf) mode)) (list (if (symbolp mode) 'setq 'setf) mode))
(if (eq arg 'toggle) (if (eq arg 'toggle)
(not ,mode) (not ,mode)