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

(eval-last-sexp-1): Don't search for

Browse source 
`...', compare with unabbreviated printed representation instead.
(last-sexp-print): Bind print-length and print-level to nil.
This commit is contained in:
Gerd Moellmann 2001-07-26 13:41:32 +00:00
parent be4a68f92a
commit 8f4f953c20
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -326,7 +326,9 @@ which see."
(when value
(let ((beg (previous-single-property-change (point) 'printed-value))
(end (next-single-char-property-change (point) 'printed-value))
(standard-output (current-buffer)))
(standard-output (current-buffer))
(print-length nil)
(print-level nil))
(delete-region beg end)
(prin1 value)))))
@ -388,7 +390,9 @@ With argument, print output into current buffer."
'args)))))
expr))
(set-syntax-table stab))))))
(let ((print-length eval-expression-print-length)
(let ((unabbreviated (let ((print-length nil) (print-level nil))
(prin1-to-string value)))
(print-length eval-expression-print-length)
(print-level eval-expression-print-level)
(beg (point))
end)
@ -397,9 +401,7 @@ With argument, print output into current buffer."
(when (and (bufferp standard-output)
(or (not (null print-length))
(not (null print-level)))
(save-excursion
(goto-char beg)
(search-forward "..." end t)))
(not (string= unabbreviated (buffer-substring beg end))))
(let ((map (make-sparse-keymap)))
(define-key map "\C-m" 'last-sexp-print)
(define-key map [down-mouse-2] 'mouse-set-point)