# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 886745549 0
# Node ID 51fc8872fa32dbb5eaed06010c36f4780fb95e20
# Parent  26c5d61bc3fd29fd29d549ef2070e7c10d528e52
(easy-mmode-define-minor-mode): Fix
the doc strings used for the mode flag variable and the keymap.
Delete duplicate &optional's.

diff -r 26c5d61bc3fd -r 51fc8872fa32 lisp/emacs-lisp/easy-mmode.el
--- 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)