diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-02-06 06:12:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-02-06 06:12:29 +0000 |
| commit | e8fb3d5a5f1e0d95a04fcb44ed4004cbe57e12bd (patch) | |
| tree | a4e9327167acd50a8ff877fa07f3d1344fc71d7a /lisp/emacs-lisp | |
| parent | caf0dd71169e585e3d413c68d683642b8107d6cd (diff) | |
| download | emacs-e8fb3d5a5f1e0d95a04fcb44ed4004cbe57e12bd.tar.gz emacs-e8fb3d5a5f1e0d95a04fcb44ed4004cbe57e12bd.tar.bz2 emacs-e8fb3d5a5f1e0d95a04fcb44ed4004cbe57e12bd.zip | |
(easy-mmode-define-minor-mode): Fix
the doc strings used for the mode flag variable and the keymap.
Delete duplicate &optional's.
Diffstat (limited to 'lisp/emacs-lisp')
| -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" (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 @@ If it is a list, it is passed to `easy-mmode-define-keymap' 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) |