comparison lisp/simple.el @ 53767:6cac586a9c3d

(edit-and-eval-command): Bind print-level and minibuffer-history-sexp-flag around call to read-from-minibuffer. Correct initial position in command-history.

53766:ec7e8552309c

(defun edit-and-eval-command (prompt command)
  "Prompting with PROMPT, let user edit COMMAND and eval result.
COMMAND is a Lisp expression.  Let user edit that expression in
the minibuffer, then read and evaluate the result."
  (let ((command
	 (unwind-protect
	     (read-from-minibuffer prompt
				   (prin1-to-string command)
				   read-expression-map t
				   '(command-history . 1))
	   ;; If command was added to command-history as a string,
	   ;; get rid of that.  We want only evaluable expressions there.
	   (if (stringp (car command-history))
	       (setq command-history (cdr command-history))))))

    ;; If command to be redone does not match front of history,
    ;; add it to the history.
    (or (equal command (car command-history))
	(setq command-history (cons command command-history)))

53767:6cac586a9c3d

(defun edit-and-eval-command (prompt command)
  "Prompting with PROMPT, let user edit COMMAND and eval result.
COMMAND is a Lisp expression.  Let user edit that expression in
the minibuffer, then read and evaluate the result."
  (let ((command
	 (let ((print-level nil)
	       (minibuffer-history-sexp-flag (1+ (minibuffer-depth))))
	   (unwind-protect
	       (read-from-minibuffer prompt
				     (prin1-to-string command)
				     read-expression-map t
				     'command-history)
	     ;; If command was added to command-history as a string,
	     ;; get rid of that.  We want only evaluable expressions there.
	     (if (stringp (car command-history))
		 (setq command-history (cdr command-history)))))))

    ;; If command to be redone does not match front of history,
    ;; add it to the history.
    (or (equal command (car command-history))
	(setq command-history (cons command command-history)))