(edt-default-emulation-setup): Share global-buffers-menu-map with the

emulated global map.

(edt-default-emulation-setup): Share global-buffers-menu-map with the
emulated global map.
6bfebcda · Chong Yidong · aa0585b0 · 6bfebcda
Commit 6bfebcda authored Aug 18, 2008 by Chong Yidong
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

lisp/emulation/edt.el lisp/emulation/edt.el +5 -1

No files found.
--- a/lisp/emulation/edt.el
+++ b/lisp/emulation/edt.el
@@ -2230,7 +2230,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."