From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 6 Apr 2003 20:17:01 +0000 (+0000)
Subject: (last-sexp-toggle-display): Correct the starting point for
X-Git-Tag: ttn-vms-21-2-B4~10621
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=56708dce0885db7bbfdf84803c9ad863ea9ed2e0;p=emacs.git

(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 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."