diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emulation/edt.el | 5 |
1 files changed, 4 insertions, 1 deletions
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 | |||
| 2229 | ;; function edt-setup-extra-default-bindings. | 2229 | ;; function edt-setup-extra-default-bindings. |
| 2230 | (define-prefix-command 'edt-user-gold-map) | 2230 | (define-prefix-command 'edt-user-gold-map) |
| 2231 | (fset 'edt-user-gold-map (copy-keymap 'edt-default-gold-map)) | 2231 | (fset 'edt-user-gold-map (copy-keymap 'edt-default-gold-map)) |
| 2232 | (edt-setup-user-bindings) | 2232 | ;; This is a function that the user can define for custom bindings. |
| 2233 | ;; See etc/edt-user.doc. | ||
| 2234 | (if (fboundp 'edt-setup-user-bindings) | ||
| 2235 | (edt-setup-user-bindings)) | ||
| 2233 | (edt-select-user-global-map)) | 2236 | (edt-select-user-global-map)) |
| 2234 | 2237 | ||
| 2235 | (defun edt-select-default-global-map() | 2238 | (defun edt-select-default-global-map() |