mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

In EDT emulator, allow updating of menu-bar Buffers menu.

Browse Source 
* lisp/emulation/edt.el (edt-default-menu-bar-update-buffers)
(edt-user-menu-bar-update-buffers): New functions.
(edt-default-emulation-setup, edt-user-emulation-setup): Use them.
This commit is contained in:
Kevin Gallagher 2012-06-19 15:05:44 +08:00 committed by Chong Yidong
parent c6bf302224
commit b382031894
2 changed files with 25 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2012-06-19 Kevin Gallagher <Kevin.Gallagher@boeing.com>
* emulation/edt.el (edt-default-menu-bar-update-buffers)
(edt-user-menu-bar-update-buffers): New functions.
(edt-default-emulation-setup, edt-user-emulation-setup): Use them.
2012-06-19 Chong Yidong <cyd@gnu.org>
* subr.el (with-selected-window): Preserve the selected window's

24
lisp/emulation/edt.el
View File

@ -2071,6 +2071,20 @@ created."
(setq transient-mark-mode edt-orig-transient-mark-mode))
(message "Original key bindings restored; EDT Emulation disabled"))
(defun edt-default-menu-bar-update-buffers ()
;; Update edt-default-global-map with latest copy of
;; `global-buffers-menu-map' each time `menu-bar-update-buffers'
;; updates global-map.
(define-key edt-default-global-map [menu-bar buffer]
(cons "Buffers" global-buffers-menu-map)))
(defun edt-user-menu-bar-update-buffers ()
;; We need to update edt-user-global-map with latest copy of
;; `global-buffers-menu-map' each time `menu-bar-update-buffers'
;; updates global-map.
(define-key edt-user-global-map [menu-bar buffer]
(cons "Buffers" global-buffers-menu-map)))
(defun edt-default-emulation-setup (&optional user-setup)
"Setup emulation of DEC's EDT editor.
Optional argument USER-SETUP non-nil means called from function
@ -2110,10 +2124,8 @@ Optional argument USER-SETUP non-nil means called from function
(progn
(fset 'edt-emulation-on (symbol-function '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)))
;; Keep the menu bar Buffers menu up-to-date in edt-default-global-map.
(add-hook 'menu-bar-update-hook 'edt-default-menu-bar-update-buffers))
(defun edt-user-emulation-setup ()
"Setup user custom emulation of DEC's EDT editor."
@ -2134,7 +2146,9 @@ Optional argument USER-SETUP non-nil means called from function
;; See Info node `edt' for more details, and sample edt-user.el file.
(if (fboundp 'edt-setup-user-bindings)
(edt-setup-user-bindings))
(edt-select-user-global-map))
(edt-select-user-global-map)
;; Keep the menu bar Buffers menu up-to-date in edt-user-global-map.
(add-hook 'menu-bar-update-hook 'edt-user-menu-bar-update-buffers))
(defun edt-select-default-global-map()
"Select default EDT emulation key bindings."