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

previous-single-property-change.

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 5b348169e0f05ded783b3e9254d1cc742ade3831..e0030ea766a71fe0c4e60564a7ba2ff1306dbe01 100644 (file)
--- 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."