diff options
| author | Richard M. Stallman <rms@gnu.org> | 2003-04-06 20:17:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2003-04-06 20:17:01 +0000 |
| commit | 56708dce0885db7bbfdf84803c9ad863ea9ed2e0 (patch) | |
| tree | 3d210f4c2ce0113d7d82f76e5583f26fd2da102e /lisp/emacs-lisp | |
| parent | b1f81fc530edd396c57c8280054e6c263e7bcf19 (diff) | |
| download | emacs-56708dce0885db7bbfdf84803c9ad863ea9ed2e0.tar.gz emacs-56708dce0885db7bbfdf84803c9ad863ea9ed2e0.tar.bz2 emacs-56708dce0885db7bbfdf84803c9ad863ea9ed2e0.zip | |
(last-sexp-toggle-display): Correct the starting point for
previous-single-property-change.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 5 |
1 files changed, 3 insertions, 2 deletions
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." |