(quail-choose-completion-string): Store

[gnu-emacs] / lisp / emacs-lisp / easy-mmode.el

diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index 866b32ccc8f45b50b87a5aef255d30b4ada759b2..c9206d2e5b15cd7d13fb876963c6962fd0ad9bf3 100644 (file)
--- 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." mode-name))
         (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)