Mercurial > emacs
changeset 73416:d443f2b23be1
(read-expression-map): Just set it, no defvar.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 18 Oct 2006 10:58:39 +0000 |
| parents | 56ea5a847db0 |
| children | 5eddbe565062 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 5 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Wed Oct 18 10:56:46 2006 +0000 +++ b/lisp/simple.el Wed Oct 18 10:58:39 2006 +0000 @@ -997,12 +997,11 @@ (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)