From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 18 Oct 2006 10:58:39 +0000 (+0000)
Subject: (read-expression-map): Just set it, no defvar.
X-Git-Tag: emacs-pretest-22.0.90~84
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=71a05b36ba10235182f5909eb452cbf5635b8df9;p=emacs.git

(read-expression-map): Just set it, no defvar.
---

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)