Re: `C-u M-x eval-expression' no longer inserts in the current buffer

[Richard Stallman]

Does this fix work right?

*** simple.el.~1.620.~  Thu Sep 11 09:45:54 2003
--- simple.el   Sat Sep 20 02:54:55 2003
***************
*** 663,669 ****
        (print-level eval-expression-print-level))
      (if eval-expression-insert-value
        (with-no-warnings
!        (eval-last-sexp-print-value (car values)))
        (prin1 (car values) t))))
  
  (defun edit-and-eval-command (prompt command)
--- 663,670 ----
        (print-level eval-expression-print-level))
      (if eval-expression-insert-value
        (with-no-warnings
!        (let ((standard-output (current-buffer)))
!          (eval-last-sexp-print-value (car values))))
        (prin1 (car values) t))))
  
  (defun edit-and-eval-command (prompt command)