Commit 4578d35d authored by Roland McGrath's avatar Roland McGrath
Browse files

(eval-expression): Fix typo: missing paren.

(read-expression-map): Use an indirection to minibuffer-local-map rather
than copying it.
parent 186a7127
......@@ -369,7 +369,7 @@ Other major modes are defined by comparison with this one."
(interactive)
(kill-all-local-variables))
(defvar read-expression-map (copy-keymap minibuffer-local-map)
(defvar read-expression-map (cons 'keymap minibuffer-local-map)
"Minibuffer keymap used for reading Lisp expressions.")
(define-key read-expression-map "\M-\t" 'lisp-complete-symbol)
......@@ -386,7 +386,7 @@ Value is also consed on to front of the variable `values'."
(let* ((minibuffer-history-sexp-flag t))
(list (read-from-minibuffer "Eval: "
nil read-expression-map t
'read-expression-history)))
'read-expression-history))))
(setq values (cons (eval expression) values))
(prin1 (car values) t))
......
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