Mercurial > emacs
changeset 38576:c6a3a3a3c0de
(eval-last-sexp-1): Look for a `...'
before assigning text properties. Make properties rear-nonsticky.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 26 Jul 2001 13:34:10 +0000 |
| parents | 0b974a5d9460 |
| children | 6c6ed5ba3813 |
| files | lisp/emacs-lisp/lisp-mode.el |
| diffstat | 1 files changed, 12 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mode.el Thu Jul 26 13:16:25 2001 +0000 +++ b/lisp/emacs-lisp/lisp-mode.el Thu Jul 26 13:34:10 2001 +0000 @@ -390,13 +390,17 @@ (set-syntax-table stab)))))) (let ((print-length eval-expression-print-length) (print-level eval-expression-print-level) - (beg (point))) + (beg (point)) + end) (prin1 value) + (setq end (point)) (when (and (bufferp standard-output) (or (not (null print-length)) - (not (null print-level)))) - (let ((map (make-sparse-keymap)) - (end (point))) + (not (null print-level))) + (save-excursion + (goto-char beg) + (search-forward "..." end t))) + (let ((map (make-sparse-keymap))) (define-key map "\C-m" 'last-sexp-print) (define-key map [down-mouse-2] 'mouse-set-point) (define-key map [mouse-2] 'last-sexp-print) @@ -405,7 +409,10 @@ `(printed-value ,value mouse-face highlight keymap ,map - help-echo "RET, mouse-2: print unabbreviated")))))))) + help-echo "RET, mouse-2: print unabbreviated" + read-nonsticky (mouse-face keymap help-echo + printed-value) + )))))))) (defun eval-last-sexp (eval-last-sexp-arg-internal)