mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 15:00:34 -08:00
Code Issues Projects Releases Wiki Activity

(eval-last-sexp-1): Look for a `...'

Browse source 
before assigning text properties.  Make properties rear-nonsticky.
This commit is contained in:
Gerd Moellmann 2001-07-26 13:34:32 +00:00
parent 61a925c117
commit be4a68f92a
2 changed files with 15 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -390,13 +390,17 @@ With argument, print output into current buffer."
(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 @@ With argument, print output into current buffer."
`(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)