# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1049660221 0
# Node ID b4b69a752c69428607942c2b46cc9e6615b4e3d1
# Parent  c56acfe75212b875ea2163fc2e5fac53541e2667
(last-sexp-toggle-display): Correct the starting point for
previous-single-property-change.

diff -r c56acfe75212 -r b4b69a752c69 lisp/emacs-lisp/lisp-mode.el
--- a/lisp/emacs-lisp/lisp-mode.el	Sun Apr 06 13:32:17 2003 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Sun Apr 06 20:17:01 2003 +0000
@@ -424,7 +424,9 @@
   (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 @@
 			       (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."