# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 969547015 0
# Node ID 9214cf65b24b4f5247c6f46f5be3b02b7ba8dd63
# Parent  1a3a36f6811b0423660f82ea821fc8413c811daa
(msb-mode-map): Use substitute-key-definition.
(msb-mode): Use msb-mode-map.

diff -r 1a3a36f6811b -r 9214cf65b24b lisp/msb.el
--- a/lisp/msb.el	Thu Sep 21 13:31:18 2000 +0000
+++ b/lisp/msb.el	Thu Sep 21 14:36:55 2000 +0000
@@ -1132,9 +1132,7 @@
 ;; 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 @@
 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)