From: Glenn Morris <rgm@gnu.org>
Date: Wed, 28 Nov 2007 03:57:52 +0000 (+0000)
Subject: (edt-user-emulation-setup): Test edt-setup-user-bindings is bound
X-Git-Tag: emacs-pretest-23.0.90~9400
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0dcd12a119a5e13cc9ef183540f950c31e6341ea;p=emacs.git

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

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()