Mercurial > emacs

changeset 8347:0fff2106fa43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-update-buffers): Use (current-global-map), not global-map.
author Richard M. Stallman <rms@gnu.org>
date Tue, 26 Jul 1994 19:57:59 +0000
parents 3f82ba603fa3
children bf950cbd542c
files lisp/menu-bar.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/menu-bar.el	Tue Jul 26 19:56:03 1994 +0000
+++ b/lisp/menu-bar.el	Tue Jul 26 19:57:59 1994 +0000
@@ -291,7 +291,7 @@
 
 (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 @@
 	     (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"