(last-sexp-toggle-display): Correct the starting point for

previous-single-property-change.

1 files changed, 3 insertions, 2 deletions

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 5b348169e0f..e0030ea766a 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -424,7 +424,9 @@ alternative printed representations that can be displayed."
   (interactive)
   (let ((value (get-text-property (point) 'printed-value)))
     (when value
-      (let ((beg (or (previous-single-property-change (point) 'printed-value) (point)))
+      (let ((beg (or (previous-single-property-change (min (point-max) (1+ (point)))
+                                                      'printed-value)
+                     (point)))
             (end (or (next-single-char-property-change (point) 'printed-value) (point)))
             (standard-output (current-buffer))
             (point (point)))
@@ -436,7 +438,6 @@ alternative printed representations that can be displayed."
                                (nth 1 value))
         (goto-char (min (point-max) point))))))
 
-
 (defun eval-last-sexp-1 (eval-last-sexp-arg-internal)
   "Evaluate sexp before point; print value in minibuffer.
 With argument, print output into current buffer."