diff options
author | Dave Love <fx@gnu.org> | 2000-09-21 14:36:55 +0000 |
---|---|---|
committer | Dave Love <fx@gnu.org> | 2000-09-21 14:36:55 +0000 |
commit | 7c800c68c861dc547567349efe12e50235d36c6a (patch) | |
tree | ee450952b01a9f8ff1269b596fca3b44cffad912 | |
parent | 59fa0c720428e3cd0cdfb98ce6701208de17ec55 (diff) | |
download | emacs-7c800c68c861dc547567349efe12e50235d36c6a.tar.gz |
(msb-mode-map): Use substitute-key-definition.
(msb-mode): Use msb-mode-map.
-rw-r--r-- | lisp/msb.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/msb.el b/lisp/msb.el index 119ec7f17f6..14b9784b3b8 100644 --- a/lisp/msb.el +++ b/lisp/msb.el @@ -1132,9 +1132,7 @@ variable `msb-menu-cond'." ;; C-down-mouse-1). (defvar msb-mode-map (let ((map (make-sparse-keymap "Msb"))) - (mapcar (lambda (key) - (define-key map key #'msb)) - (where-is-internal 'mouse-buffer-menu (make-sparse-keymap))) + (substitute-key-definition 'mouse-buffer-menu 'msb map global-map) map)) ;;;###autoload @@ -1143,7 +1141,8 @@ variable `msb-menu-cond'." With arg, turn Msb mode on if and only if arg is positive. This mode overrides the binding(s) of `mouse-buffer-menu' to provide a different buffer menu using the function `msb'." - nil nil nil :global t + nil nil msb-mode-map + :global t (if msb-mode (progn (add-hook 'menu-bar-update-hook 'msb-menu-bar-update-buffers) |