diff options
| author | Kelly Dean <kelly@prtime.org> | 2015-02-16 04:21:06 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-17 22:08:52 -0200 |
| commit | 3194809d247efdc7ea65644ea7b298885e47a392 (patch) | |
| tree | 92a2e97a00144ac6d1f00207ca5736a95abaea20 /lisp/emacs-lisp/easy-mmode.el | |
| parent | 1f2c4f817ee37c7c7767e22eda1c427456885b6b (diff) | |
| download | emacs-3194809d247efdc7ea65644ea7b298885e47a392.tar.gz | |
emacs-lisp/easy-mmode.el: Process macro arguments correctly
* emacs-lisp/easy-mmode.el (define-minor-mode): Process macro
arguments correctly. (Bug#19685)
Diffstat (limited to 'lisp/emacs-lisp/easy-mmode.el')
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index f7e8619948a..cd5720d144f 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el @@ -159,7 +159,8 @@ For example, you could write ;; Allow skipping the first three args. (cond ((keywordp init-value) - (setq body `(,init-value ,lighter ,keymap ,@body) + (setq body (if keymap `(,init-value ,lighter ,keymap ,@body) + `(,init-value ,lighter)) init-value nil lighter nil keymap nil)) ((keywordp lighter) (setq body `(,lighter ,keymap ,@body) lighter nil keymap nil)) |