From 0dcd12a119a5e13cc9ef183540f950c31e6341ea Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 28 Nov 2007 03:57:52 +0000 Subject: [PATCH] (edt-user-emulation-setup): Test edt-setup-user-bindings is bound before calling. --- lisp/emulation/edt.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index d61ef9725f3..d43c118f4e1 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el @@ -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() -- 2.39.2