diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-04-12 21:03:04 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-04-12 21:03:04 -0400 |
| commit | 3b7e1d5fe9e2876b870dd49ac459639bad7a7e17 (patch) | |
| tree | acb88b083d8eefb0ce7b911690eb48ab55aac012 /lisp/emacs-lisp/easy-mmode.el | |
| parent | 01f5787b8a4c21a1414e9e5202323d56b4aea3b8 (diff) | |
| download | emacs-3b7e1d5fe9e2876b870dd49ac459639bad7a7e17.tar.gz | |
(define-minor-mode): A nil argument to the minor mode turns the mode ON.
Diffstat (limited to 'lisp/emacs-lisp/easy-mmode.el')
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 13e08667839..2849f4cf154 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el @@ -222,15 +222,10 @@ With zero or negative ARG turn mode off. (interactive (list (or current-prefix-arg 'toggle))) (let ((,last-message (current-message))) (setq ,mode - (cond - ((eq arg 'toggle) (not ,mode)) - (arg (> (prefix-numeric-value arg) 0)) - (t - (if (null ,mode) t - (message - "Toggling %s off; better pass an explicit argument." - ',mode) - nil)))) + (if (eq arg 'toggle) + (not ,mode) + ;; A nil argument also means ON now. + (> (prefix-numeric-value arg) 0))) ,@body ;; The on/off hooks are here for backward compatibility only. (run-hooks ',hook (if ,mode ',hook-on ',hook-off)) |