Commit 71a05b36 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 631890d8
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment