Mercurial > emacs
changeset 20852:51fc8872fa32
(easy-mmode-define-minor-mode): Fix
the doc strings used for the mode flag variable and the keymap.
Delete duplicate &optional's.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 06 Feb 1998 06:12:29 +0000 |
| parents | 26c5d61bc3fd |
| children | 58bb74217a10 |
| files | lisp/emacs-lisp/easy-mmode.el |
| diffstat | 1 files changed, 4 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/easy-mmode.el Fri Feb 06 06:10:30 1998 +0000 +++ b/lisp/emacs-lisp/easy-mmode.el Fri Feb 06 06:12:29 1998 +0000 @@ -119,8 +119,7 @@ (run-hooks ',hook-off))))))) ;;;###autoload -(defmacro easy-mmode-define-minor-mode - (mode doc &optional init-value &optional lighter &optional keymap) +(defmacro easy-mmode-define-minor-mode (mode doc &optional init-value lighter keymap) "Define a new minor mode MODE. This function defines the associated control variable, keymap, toggle command, and hooks (see `easy-mmode-define-toggle'). @@ -132,11 +131,11 @@ in order to build a valid keymap. \(defmacro easy-mmode-define-minor-mode - (MODE DOC &optional INIT-VALUE &optional LIGHTER &optional KEYMAP)...\)" + (MODE DOC &optional INIT-VALUE LIGHTER KEYMAP)...\)" (let* ((mode-name (symbol-name mode)) - (mode-doc (format "%s mode control switch." mode-name)) + (mode-doc (format "Non-nil if %s mode is enabled.")) (keymap-name (concat mode-name "-map")) - (keymap-doc (format "Keymap activated when %s mode is on." mode-name))) + (keymap-doc (format "Keymap for %s mode." mode-name))) `(progn ;; define the switch (defvar ,mode ,init-value ,mode-doc)