Mercurial > emacs

changeset 50463:b4b69a752c69

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(last-sexp-toggle-display): Correct the starting point for previous-single-property-change.
author Richard M. Stallman <rms@gnu.org>
date Sun, 06 Apr 2003 20:17:01 +0000
parents c56acfe75212
children 5f5babd538ab
files lisp/emacs-lisp/lisp-mode.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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."