Mercurial > emacs
comparison lisp/emulation/edt.el @ 80739:4a7a1ee0a7ce
(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 | d6d821e3ae21 |
| children |
comparison
equal
deleted
inserted
replaced
| 80738:77c3ba2ec6a9 | 80739:4a7a1ee0a7ce |
|---|---|
| 2228 (progn | 2228 (progn |
| 2229 (setq edt-user-map-configured t) | 2229 (setq edt-user-map-configured t) |
| 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." |
| 2237 ;; Initialize EDT default bindings. | 2241 ;; Initialize EDT default bindings. |
| 2238 (edt-default-emulation-setup t) | 2242 (edt-default-emulation-setup t) |