(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 a6b15ca35df89f3a8ac3bd6569acb0596df0c6d8..d1f4efd64aca6122109901beaecd7df90829d4fc 100644 (file)
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -420,17 +420,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)