From e8fb3d5a5f1e0d95a04fcb44ed4004cbe57e12bd Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 6 Feb 1998 06:12:29 +0000 Subject: [PATCH] (easy-mmode-define-minor-mode): Fix the doc strings used for the mode flag variable and the keymap. Delete duplicate &optional's. --- lisp/emacs-lisp/easy-mmode.el | 9 ++++----- 1 file 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) -- 2.39.5