procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
previous-single-property-change.
This commit is contained in:
Richard M. Stallman 2003-04-06 20:17:01 +00:00
parent b1f81fc530
commit 56708dce08
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/lisp-mode.el
View file

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