summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2008-08-18 19:07:59 +0000
committerChong Yidong <cyd@stupidchicken.com>2008-08-18 19:07:59 +0000
commit252e5957ecea34661cfc575c12e6d257c1719ab2 (patch)
treec9580e5d6d7063e1962bebe2737fcd45a4331fee
parentd2984d996c363dba777feea8e3031597cd0caee1 (diff)
downloademacs-252e5957ecea34661cfc575c12e6d257c1719ab2.tar.gz
(edt-default-emulation-setup): Share global-buffers-menu-map with the
emulated global map.
-rw-r--r--lisp/emulation/edt.el6
1 files changed, 5 insertions, 1 deletions
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."