Mercurial > emacs

changeset 249:43cdaf2db624

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Roland McGrath <roland@gnu.org>
date Wed, 01 May 1991 05:28:37 +0000
parents 287cf3ae183a
children 7e94ea5958e0
files lisp/emacs-lisp/lisp-mode.el
diffstat 1 files changed, 13 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mode.el	Wed May 01 00:45:54 1991 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Wed May 01 05:28:37 1991 +0000
@@ -209,25 +209,25 @@
   "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<")