diff lisp/simple.el @ 4894:1574c6c6561f

(eval-expression): Fix typo: missing paren. (read-expression-map): Use an indirection to minibuffer-local-map rather than copying it.

--- a/lisp/simple.el	Tue Oct 26 03:29:54 1993 +0000
+++ b/lisp/simple.el	Tue Oct 26 18:06:48 1993 +0000
@@ -369,7 +369,7 @@
   (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 @@
    (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))