Commit 4d587a6c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent cd33a5a0
......@@ -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"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment