Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 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 | 107f826252d2 |
| children | 4dce109d0aa3 |
comparison
equal
deleted
inserted
replaced
| 38575:0b974a5d9460 | 38576:c6a3a3a3c0de |
|---|---|
| 388 'args))))) | 388 'args))))) |
| 389 expr)) | 389 expr)) |
| 390 (set-syntax-table stab)))))) | 390 (set-syntax-table stab)))))) |
| 391 (let ((print-length eval-expression-print-length) | 391 (let ((print-length eval-expression-print-length) |
| 392 (print-level eval-expression-print-level) | 392 (print-level eval-expression-print-level) |
| 393 (beg (point))) | 393 (beg (point)) |
| 394 end) | |
| 394 (prin1 value) | 395 (prin1 value) |
| 396 (setq end (point)) | |
| 395 (when (and (bufferp standard-output) | 397 (when (and (bufferp standard-output) |
| 396 (or (not (null print-length)) | 398 (or (not (null print-length)) |
| 397 (not (null print-level)))) | 399 (not (null print-level))) |
| 398 (let ((map (make-sparse-keymap)) | 400 (save-excursion |
| 399 (end (point))) | 401 (goto-char beg) |
| 402 (search-forward "..." end t))) | |
| 403 (let ((map (make-sparse-keymap))) | |
| 400 (define-key map "\C-m" 'last-sexp-print) | 404 (define-key map "\C-m" 'last-sexp-print) |
| 401 (define-key map [down-mouse-2] 'mouse-set-point) | 405 (define-key map [down-mouse-2] 'mouse-set-point) |
| 402 (define-key map [mouse-2] 'last-sexp-print) | 406 (define-key map [mouse-2] 'last-sexp-print) |
| 403 (add-text-properties | 407 (add-text-properties |
| 404 beg end | 408 beg end |
| 405 `(printed-value ,value | 409 `(printed-value ,value |
| 406 mouse-face highlight | 410 mouse-face highlight |
| 407 keymap ,map | 411 keymap ,map |
| 408 help-echo "RET, mouse-2: print unabbreviated")))))))) | 412 help-echo "RET, mouse-2: print unabbreviated" |
| 413 read-nonsticky (mouse-face keymap help-echo | |
| 414 printed-value) | |
| 415 )))))))) | |
| 409 | 416 |
| 410 | 417 |
| 411 (defun eval-last-sexp (eval-last-sexp-arg-internal) | 418 (defun eval-last-sexp (eval-last-sexp-arg-internal) |
| 412 "Evaluate sexp before point; print value in minibuffer. | 419 "Evaluate sexp before point; print value in minibuffer. |
| 413 Interactively, with prefix argument, print output into current buffer." | 420 Interactively, with prefix argument, print output into current buffer." |