Commit 6bfebcda authored by Chong Yidong's avatar Chong Yidong
Browse files

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

emulated global map.
parent aa0585b0
...@@ -2230,7 +2230,11 @@ Optional argument USER-SETUP non-nil means called from function ...@@ -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))) (fset 'edt-emulation-on (symbol-function 'edt-select-user-global-map)))
(progn (progn
(fset 'edt-emulation-on (symbol-function 'edt-select-default-global-map)) (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 () (defun edt-user-emulation-setup ()
"Setup user custom emulation of DEC's EDT editor." "Setup user custom emulation of DEC's EDT editor."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment