Mercurial > emacs

changeset 80739:4a7a1ee0a7ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(edt-default-emulation-setup): Share global-buffers-menu-map with the emulated global map.
author Chong Yidong <cyd@stupidchicken.com>
date Mon, 18 Aug 2008 19:09:23 +0000
parents 77c3ba2ec6a9
children 038757cf9434
files lisp/emulation/edt.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/edt.el	Mon Aug 18 19:09:07 2008 +0000
+++ b/lisp/emulation/edt.el	Mon Aug 18 19:09:23 2008 +0000
@@ -2230,7 +2230,11 @@
         (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."