diff options
| author | Richard M. Stallman | 2006-10-18 10:58:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2006-10-18 10:58:39 +0000 |
| commit | 71a05b36ba10235182f5909eb452cbf5635b8df9 (patch) | |
| tree | 3831ba3ad3b1bf5eb0ea2ef9c7bb44a1311c5e2a | |
| parent | 631890d8b95b828d3c56880c74fece58bf8ad4bf (diff) | |
| download | emacs-71a05b36ba10235182f5909eb452cbf5635b8df9.tar.gz emacs-71a05b36ba10235182f5909eb452cbf5635b8df9.zip | |
(read-expression-map): Just set it, no defvar.
| -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'." | |||
| 997 | (single-key-description char)) | 997 | (single-key-description char)) |
| 998 | encoding-msg pos total percent col hscroll)))))) | 998 | encoding-msg pos total percent col hscroll)))))) |
| 999 | 999 | ||
| 1000 | (defvar read-expression-map | 1000 | ;; Initialize read-expression-map. It is defined at C level. |
| 1001 | (let ((m (make-sparse-keymap))) | 1001 | (let ((m (make-sparse-keymap))) |
| 1002 | (define-key m "\M-\t" 'lisp-complete-symbol) | 1002 | (define-key m "\M-\t" 'lisp-complete-symbol) |
| 1003 | (set-keymap-parent m minibuffer-local-map) | 1003 | (set-keymap-parent m minibuffer-local-map) |
| 1004 | m) | 1004 | (setq read-expression-map m)) |
| 1005 | "Minibuffer keymap used for reading Lisp expressions.") | ||
| 1006 | 1005 | ||
| 1007 | (defvar read-expression-history nil) | 1006 | (defvar read-expression-history nil) |
| 1008 | 1007 | ||