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

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

Browse Source
This commit is contained in:
Richard M. Stallman 1994-07-26 19:57:59 +00:00
parent cd33a5a086
commit 4d587a6ce1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/menu-bar.el
View File

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