From 252e5957ecea34661cfc575c12e6d257c1719ab2 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 18 Aug 2008 19:07:59 +0000 Subject: [PATCH] (edt-default-emulation-setup): Share global-buffers-menu-map with the emulated global map. --- lisp/emulation/edt.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index bcfb7977191..32661b47f50 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el @@ -2211,7 +2211,11 @@ Optional argument USER-SETUP non-nil means called from function (fset 'edt-emulation-on (symbol-function 'edt-select-user-global-map))) (progn (fset 'edt-emulation-on (symbol-function 'edt-select-default-global-map)) - (edt-select-default-global-map)))) + (edt-select-default-global-map))) + ;; We need to share `global-buffers-menu-map' with the saved global + ;; keymap, because `menu-bar-update-buffers' directly changes it. + (define-key (current-global-map) [menu-bar buffer] + (cons "Buffers" global-buffers-menu-map))) (defun edt-user-emulation-setup () "Setup user custom emulation of DEC's EDT editor." -- 2.39.2