From 4d587a6ce1f09acda481b9a0983c0460faa05f48 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 26 Jul 1994 19:57:59 +0000 Subject: [PATCH] (menu-bar-update-buffers): Use (current-global-map), not global-map. --- lisp/menu-bar.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 1030db5131a..fca39856a8c 100644 --- 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" -- 2.39.5