mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-28 19:42:02 +00:00
Code Issues Releases Activity

(msb-mode-map): Use substitute-key-definition.

Browse Source 
(msb-mode): Use msb-mode-map.
This commit is contained in:
Dave Love 2000-09-21 14:36:55 +00:00
parent 43ccb598c7
commit 8b618804f8
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/msb.el
View File

@ -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)