diff options
| -rw-r--r-- | lisp/emulation/edt.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index 880bc0b55c6..3b180b935c7 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el | |||
| @@ -2230,7 +2230,11 @@ Optional argument USER-SETUP non-nil means called from function | |||
| 2230 | (fset 'edt-emulation-on (symbol-function 'edt-select-user-global-map))) | 2230 | (fset 'edt-emulation-on (symbol-function 'edt-select-user-global-map))) |
| 2231 | (progn | 2231 | (progn |
| 2232 | (fset 'edt-emulation-on (symbol-function 'edt-select-default-global-map)) | 2232 | (fset 'edt-emulation-on (symbol-function 'edt-select-default-global-map)) |
| 2233 | (edt-select-default-global-map)))) | 2233 | (edt-select-default-global-map))) |
| 2234 | ;; We need to share `global-buffers-menu-map' with the saved global | ||
| 2235 | ;; keymap, because `menu-bar-update-buffers' directly changes it. | ||
| 2236 | (define-key (current-global-map) [menu-bar buffer] | ||
| 2237 | (cons "Buffers" global-buffers-menu-map))) | ||
| 2234 | 2238 | ||
| 2235 | (defun edt-user-emulation-setup () | 2239 | (defun edt-user-emulation-setup () |
| 2236 | "Setup user custom emulation of DEC's EDT editor." | 2240 | "Setup user custom emulation of DEC's EDT editor." |