(menu-bar-update-buffers): Use (current-global-map), not global-map.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 1030db5131ac1aff7cad76656db552d8d40823de..fca39856a8cdeb257ae597d108dcbcfbb5eeaa87 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -291,7 +291,7 @@ A large number or nil slows down menu responsiveness.")
 
 (defun menu-bar-update-buffers ()
   ;; If user discards the Buffers item, play along.
-  (and (lookup-key global-map [menu-bar buffer])
+  (and (lookup-key (current-global-map) [menu-bar buffer])
        (frame-or-buffer-changed-p)
        (let ((buffers (buffer-list))
             (frames (frame-list))
@@ -379,7 +379,7 @@ A large number or nil slows down menu responsiveness.")
             (setq buffers-menu (cons 'keymap buffers-menu)))
         (if frames-menu
             (setq frames-menu (cons 'keymap frames-menu)))
-        (define-key global-map [menu-bar buffer]
+        (define-key (current-global-map) [menu-bar buffer]
           (cons "Buffers"
                 (if (and buffers-menu frames-menu)
                     (list 'keymap "Buffers and Frames"