Merge from emacs-24 branch

This commit is contained in:
Chong Yidong 2012-04-15 15:28:01 +08:00
commit e6fd457e01
28 changed files with 469 additions and 338 deletions

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)