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

upstream partial out of memory

Browse source
This commit is contained in:
Joakim Verona 2012-04-26 11:59:27 +02:00
commit 6346156f96
59 changed files with 647 additions and 418 deletions
Download patch file Download diff file Expand all files Collapse all files

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.
(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)