Commit b35bd33d authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

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

parent 24d744ac
2000-04-26 Gerd Moellmann <gerd@gnu.org> 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.el (desktop-save): Save list of minor modes.
(desktop-create-buffer): Restore minor modes. (desktop-create-buffer): Restore minor modes.
(desktop-minor-mode-table): New user-option. (desktop-minor-mode-table): New user-option.
......
...@@ -1486,17 +1486,17 @@ If DIR-FLAG is non-nil, create a new empty directory instead of a file." ...@@ -1486,17 +1486,17 @@ If DIR-FLAG is non-nil, create a new empty directory instead of a file."
file)) file))
(defun add-minor-mode (symbol name map) (defun add-minor-mode (symbol name &optional map)
"Register a new minor mode. "Register a new minor mode.
SYMBOL is the name of a buffer-local variable that is toggled on 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 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 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) (make-local-variable symbol)
(setq symbol t) (setq symbol t)
(unless (assq symbol minor-mode-alist) (unless (assq symbol minor-mode-alist)
(add-to-list 'minor-mode-alist (list symbol name))) (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)))) (add-to-list 'minor-mode-map-alist (cons symbol map))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment