Mercurial > emacs

changeset 4894:1574c6c6561f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(eval-expression): Fix typo: missing paren. (read-expression-map): Use an indirection to minibuffer-local-map rather than copying it.
author Roland McGrath <roland@gnu.org>
date Tue, 26 Oct 1993 18:06:48 +0000
parents c4bab885aa8d
children 7c2d90ff5849
files lisp/simple.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))