mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
emulated global map.
This commit is contained in:
Chong Yidong 2008-08-18 19:07:59 +00:00
parent d2984d996c
commit 252e5957ec
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emulation/edt.el
View file

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