# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1005021891 0
# Node ID 7441fb1a40ac12fbd805913c6dd17d19cf725c14
# Parent  00382536d1856669bff0edcc2af7da4574da11cb
(eval-last-sexp-1): Return the value of the evaluated form.

diff -r 00382536d185 -r 7441fb1a40ac lisp/emacs-lisp/lisp-mode.el
--- a/lisp/emacs-lisp/lisp-mode.el	Tue Nov 06 04:29:38 2001 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Tue Nov 06 04:44:51 2001 +0000
@@ -482,17 +482,18 @@
 	    (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)