# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 751658808 0
# Node ID 1574c6c6561fe8e24ee9d5395dddd74db3cb1418
# Parent  c4bab885aa8d32a4019c184907ed496512614565
(eval-expression): Fix typo: missing paren.
(read-expression-map): Use an indirection to minibuffer-local-map rather
than copying it.

diff -r c4bab885aa8d -r 1574c6c6561f lisp/simple.el
--- 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))