From 4578d35d505afeb549b162db40f5d2be4f25d094 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Tue, 26 Oct 1993 18:06:48 +0000 Subject: [PATCH] (eval-expression): Fix typo: missing paren. (read-expression-map): Use an indirection to minibuffer-local-map rather than copying it. --- lisp/simple.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 8babd63b47d..776e9cb7d45 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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)) -- 2.39.5