Skip to content

GitLab

Commit 0dcd12a1 authored by Glenn Morris's avatar Glenn Morris
Browse files

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

before calling.
parent 552939e4
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 1 deletion
lisp/emulation/edt.el
View file @ 0dcd12a1
...@@ -2229,7 +2229,10 @@ Optional argument USER-SETUP non-nil means called from function ...@@ -2229,7 +2229,10 @@ Optional argument USER-SETUP non-nil means called from function
;; function edt-setup-extra-default-bindings. ;; function edt-setup-extra-default-bindings.
(define-prefix-command 'edt-user-gold-map) (define-prefix-command 'edt-user-gold-map)
(fset 'edt-user-gold-map (copy-keymap 'edt-default-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)) (edt-select-user-global-map))
(defun edt-select-default-global-map() (defun edt-select-default-global-map()
......
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