comparison 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.

4893:c4bab885aa8d

  "Major mode not specialized for anything in particular.
Other major modes are defined by comparison with this one."
  (interactive)
  (kill-all-local-variables))

(defvar read-expression-map (copy-keymap minibuffer-local-map)
  "Minibuffer keymap used for reading Lisp expressions.")
(define-key read-expression-map "\M-\t" 'lisp-complete-symbol)

(put 'eval-expression 'disabled t)

Value is also consed on to front of the variable `values'."
  (interactive
   (let* ((minibuffer-history-sexp-flag t))
     (list (read-from-minibuffer "Eval: "
				 nil read-expression-map t
				 'read-expression-history)))
  (setq values (cons (eval expression) values))
  (prin1 (car values) t))

(defun edit-and-eval-command (prompt command)
  "Prompting with PROMPT, let user edit COMMAND and eval result.

4894:1574c6c6561f

  "Major mode not specialized for anything in particular.
Other major modes are defined by comparison with this one."
  (interactive)
  (kill-all-local-variables))

(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)

(put 'eval-expression 'disabled t)

Value is also consed on to front of the variable `values'."
  (interactive
   (let* ((minibuffer-history-sexp-flag t))
     (list (read-from-minibuffer "Eval: "
				 nil read-expression-map t
				 'read-expression-history))))
  (setq values (cons (eval expression) values))
  (prin1 (car values) t))

(defun edit-and-eval-command (prompt command)
  "Prompting with PROMPT, let user edit COMMAND and eval result.