diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-02-14 14:12:08 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-02-14 14:12:08 +0100 |
| commit | 07e6b29b12c961808fcf4d8f804946056118efc5 (patch) | |
| tree | 7f550cd9fcb535fd1e31fec5df63538e768d8d45 /lisp/emacs-lisp | |
| parent | ffca27267822f019a0b0dc86101ef54234839e05 (diff) | |
| download | emacs-07e6b29b12c961808fcf4d8f804946056118efc5.tar.gz emacs-07e6b29b12c961808fcf4d8f804946056118efc5.tar.bz2 emacs-07e6b29b12c961808fcf4d8f804946056118efc5.zip | |
Fix previous define-minor-mode change
* lisp/emacs-lisp/easy-mmode.el (define-minor-mode): Fix
interactive extension in previous change.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 08ac8186949..01fb58e863a 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el @@ -313,10 +313,11 @@ or call the function `%s'.")))) ;; Use `toggle' rather than (if ,mode 0 1) so that using ;; repeat-command still does the toggling correctly. (if (consp interactive) - `(command ,interactive - (list (if current-prefix-arg - (prefix-numeric-value current-prefix-arg) - 'toggle))) + `(interactive + ,interactive + (list (if current-prefix-arg + (prefix-numeric-value current-prefix-arg) + 'toggle))) '(interactive (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))))) |