diff options
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 866b32ccc8f..dc89416e266 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el | |||
| @@ -119,8 +119,7 @@ With zero or negative arg turn mode off" | |||
| 119 | (run-hooks ',hook-off))))))) | 119 | (run-hooks ',hook-off))))))) |
| 120 | 120 | ||
| 121 | ;;;###autoload | 121 | ;;;###autoload |
| 122 | (defmacro easy-mmode-define-minor-mode | 122 | (defmacro easy-mmode-define-minor-mode (mode doc &optional init-value lighter keymap) |
| 123 | (mode doc &optional init-value &optional lighter &optional keymap) | ||
| 124 | "Define a new minor mode MODE. | 123 | "Define a new minor mode MODE. |
| 125 | This function defines the associated control variable, keymap, | 124 | This function defines the associated control variable, keymap, |
| 126 | toggle command, and hooks (see `easy-mmode-define-toggle'). | 125 | toggle command, and hooks (see `easy-mmode-define-toggle'). |
| @@ -132,11 +131,11 @@ If it is a list, it is passed to `easy-mmode-define-keymap' | |||
| 132 | in order to build a valid keymap. | 131 | in order to build a valid keymap. |
| 133 | 132 | ||
| 134 | \(defmacro easy-mmode-define-minor-mode | 133 | \(defmacro easy-mmode-define-minor-mode |
| 135 | (MODE DOC &optional INIT-VALUE &optional LIGHTER &optional KEYMAP)...\)" | 134 | (MODE DOC &optional INIT-VALUE LIGHTER KEYMAP)...\)" |
| 136 | (let* ((mode-name (symbol-name mode)) | 135 | (let* ((mode-name (symbol-name mode)) |
| 137 | (mode-doc (format "%s mode control switch." mode-name)) | 136 | (mode-doc (format "Non-nil if %s mode is enabled.")) |
| 138 | (keymap-name (concat mode-name "-map")) | 137 | (keymap-name (concat mode-name "-map")) |
| 139 | (keymap-doc (format "Keymap activated when %s mode is on." mode-name))) | 138 | (keymap-doc (format "Keymap for %s mode." mode-name))) |
| 140 | `(progn | 139 | `(progn |
| 141 | ;; define the switch | 140 | ;; define the switch |
| 142 | (defvar ,mode ,init-value ,mode-doc) | 141 | (defvar ,mode ,init-value ,mode-doc) |