From b35bd33d35439b9cca056406c2de619e58ee4802 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 26 Apr 2000 18:50:09 +0000 Subject: [PATCH] (add-minor-mode): Make argument MAP optional. --- lisp/ChangeLog | 2 ++ lisp/subr.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4a74c6b1e02..da420073e04 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2000-04-26 Gerd Moellmann + * 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 fd2f968dc20..e8ba1afe5e5 100644 --- 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)) -(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)))) -- 2.39.5