diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 0030600028d..0757115ee40 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el @@ -107,7 +107,7 @@ BODY contains code that will be executed each time the mode is (dis)activated. (let* ((mode-name (symbol-name mode)) (pretty-name (easy-mmode-pretty-mode-name mode lighter)) (globalp nil) - (togglep t) ;why would you ever want to toggle? + (togglep t) ;; This should never be nil -- rms. (group nil) (extra-args nil) (keymap-sym (if (and keymap (symbolp keymap)) keymap @@ -175,7 +175,9 @@ Interactively, with no prefix argument, toggle the mode. With universal prefix ARG " (unless togglep "(or if ARG is nil) ") "turn mode on. With zero or negative ARG turn mode off. \\{%s}") pretty-name keymap-sym)) - (interactive (list (or current-prefix-arg (if ,mode 0 1)))) + ;; Make no arg by default in an interactive call, + ;; so that repeating the command toggles again. + (interactive) (setq ,mode (if arg (> (prefix-numeric-value arg) 0) |