diff options
author | Richard M. Stallman <rms@gnu.org> | 2006-10-18 10:58:39 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2006-10-18 10:58:39 +0000 |
commit | 71a05b36ba10235182f5909eb452cbf5635b8df9 (patch) | |
tree | 3831ba3ad3b1bf5eb0ea2ef9c7bb44a1311c5e2a /lisp/simple.el | |
parent | 631890d8b95b828d3c56880c74fece58bf8ad4bf (diff) | |
download | emacs-71a05b36ba10235182f5909eb452cbf5635b8df9.tar.gz |
(read-expression-map): Just set it, no defvar.
Diffstat (limited to 'lisp/simple.el')
-rw-r--r-- | lisp/simple.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 0d16e6a79eb..d6feaa1e8e9 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -997,12 +997,11 @@ in *Help* buffer. See also the command `describe-char'." (single-key-description char)) encoding-msg pos total percent col hscroll)))))) -(defvar read-expression-map - (let ((m (make-sparse-keymap))) - (define-key m "\M-\t" 'lisp-complete-symbol) - (set-keymap-parent m minibuffer-local-map) - m) - "Minibuffer keymap used for reading Lisp expressions.") +;; Initialize read-expression-map. It is defined at C level. +(let ((m (make-sparse-keymap))) + (define-key m "\M-\t" 'lisp-complete-symbol) + (set-keymap-parent m minibuffer-local-map) + (setq read-expression-map m)) (defvar read-expression-history nil) |