(add-minor-mode): Make argument MAP optional.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4a74c6b1e0228b883372399fdf14b247caa001ea..da420073e0493374ee3f94aad36c04d67db415b4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2000-04-26  Gerd Moellmann  <gerd@gnu.org>
 
+       * subr.el (add-minor-mode): Make argument MAP optional.
+
        * desktop.el (desktop-save): Save list of minor modes.
        (desktop-create-buffer): Restore minor modes.
        (desktop-minor-mode-table): New user-option.

diff --git a/lisp/subr.el b/lisp/subr.el
index fd2f968dc2002c65102c77f4226687f7465cd3b1..e8ba1afe5e59d6265345ceb6b1dd181d98febcab 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1486,17 +1486,17 @@ If DIR-FLAG is non-nil, create a new empty directory instead of a file."
     file))
 
 \f
-(defun add-minor-mode (symbol name map)
+(defun add-minor-mode (symbol name &optional map)
   "Register a new minor mode.
 SYMBOL is the name of a buffer-local variable that is toggled on
 or off to say whether the minor mode is active or not.  NAME is the
 string that will appear in the mode line when the minor mode is
-active.  MAP is the keymap for the minor mode."
+active.  Optional MAP is the keymap for the minor mode."
   (make-local-variable symbol)
   (setq symbol t)
   (unless (assq symbol minor-mode-alist)
     (add-to-list 'minor-mode-alist (list symbol name)))
-  (unless (assq symbol minor-mode-map-alist)
+  (when (and map (not (assq symbol minor-mode-map-alist)))
     (add-to-list 'minor-mode-map-alist (cons symbol map))))