mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(edt-user-emulation-setup): Test edt-setup-user-bindings is bound

Browse Source 
before calling.
This commit is contained in:
Glenn Morris 2007-11-28 03:57:52 +00:00
parent 552939e461
commit 0dcd12a119
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/emulation/edt.el
View File

@ -2229,7 +2229,10 @@ Optional argument USER-SETUP non-nil means called from function
;; function edt-setup-extra-default-bindings.
(define-prefix-command 'edt-user-gold-map)
(fset 'edt-user-gold-map (copy-keymap 'edt-default-gold-map))
(edt-setup-user-bindings)
;; This is a function that the user can define for custom bindings.
;; See etc/edt-user.doc.
(if (fboundp 'edt-setup-user-bindings)
(edt-setup-user-bindings))
(edt-select-user-global-map))
(defun edt-select-default-global-map()