From: Chong Yidong <cyd@stupidchicken.com>
Date: Mon, 18 Aug 2008 19:07:59 +0000 (+0000)
Subject: (edt-default-emulation-setup): Share global-buffers-menu-map with the
X-Git-Tag: emacs-pretest-23.0.90~3428
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=252e5957ecea34661cfc575c12e6d257c1719ab2;p=emacs.git

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

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."