From 19b2f8f148b1fff06b9a8af8c73088cbca33e360 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Wed, 1 May 1991 05:28:37 +0000 Subject: *** empty log message *** --- lisp/emacs-lisp/lisp-mode.el | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 4135c0f77e8..37216ebd1b4 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -209,25 +209,25 @@ if that value is non-nil." "Evaluate sexp before point; print value in minibuffer. With argument, print output into current buffer." (interactive "P") - (prin1 (let ((stab (syntax-table))) - (eval (unwind-protect - (save-excursion - (set-syntax-table emacs-lisp-mode-syntax-table) - (forward-sexp -1) - (read (current-buffer))) - (set-syntax-table stab)))) - (if arg (current-buffer) t))) + (let ((standard-output (if arg (current-buffer) t))) + (prin1 (let ((stab (syntax-table))) + (eval (unwind-protect + (save-excursion + (set-syntax-table emacs-lisp-mode-syntax-table) + (forward-sexp -1) + (read (current-buffer))) + (set-syntax-table stab))))))) (defun eval-defun (arg) "Evaluate defun that point is in or before. Print value in minibuffer. With argument, insert value in current buffer after the defun." (interactive "P") - (prin1 (eval (save-excursion - (end-of-defun) - (beginning-of-defun) - (read (current-buffer)))) - (if arg (current-buffer) t))) + (let ((standard-output (if arg (current-buffer) t))) + (prin1 (eval (save-excursion + (end-of-defun) + (beginning-of-defun) + (read (current-buffer))))))) (defun lisp-comment-indent () (if (looking-at "\\s<\\s<\\s<") -- cgit v1.2.3