From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 6 Nov 2001 04:44:51 +0000 (+0000)
Subject: (eval-last-sexp-1): Return the value of the evaluated form.
X-Git-Tag: ttn-vms-21-2-B4~18796
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2bb659660ed7aff6dab10d30e914368993c6f855;p=emacs.git

(eval-last-sexp-1): Return the value of the evaluated form.
---

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 34321783b81..6b110dbd9f7 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -482,17 +482,18 @@ With argument, print output into current buffer."
 	    (print-level eval-expression-print-level)
 	    (beg (point))
 	    end)
-	(prin1 value)
-	(setq end (point))
-	(when (and (bufferp standard-output)
-		   (or (not (null print-length))
-		       (not (null print-level)))
-		   (not (string= unabbreviated
-				 (buffer-substring-no-properties beg end))))
-	  (last-sexp-setup-props beg end value 
-				 unabbreviated
-				 (buffer-substring-no-properties beg end))
-	  )))))
+	(prog1
+	    (prin1 value)
+	  (setq end (point))
+	  (when (and (bufferp standard-output)
+		     (or (not (null print-length))
+			 (not (null print-level)))
+		     (not (string= unabbreviated
+				   (buffer-substring-no-properties beg end))))
+	    (last-sexp-setup-props beg end value 
+				   unabbreviated
+				   (buffer-substring-no-properties beg end))
+	    ))))))
 
 
 (defun eval-last-sexp (eval-last-sexp-arg-internal)