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

(eval-last-sexp-1): Return the value of the evaluated form.

Browse source
This commit is contained in:
Richard M. Stallman 2001-11-06 04:44:51 +00:00
parent f4bb940988
commit 2bb659660e
1 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -482,17 +482,18 @@ With argument, print output into current buffer."
(print-level eval-expression-print-level)
(beg (point))
end)
(prin1 value)
(setq end (point))
(when (and (bufferp standard-output)
(or (not (null print-length))
(not (null print-level)))
(not (string= unabbreviated
(buffer-substring-no-properties beg end))))
(last-sexp-setup-props beg end value
unabbreviated
(buffer-substring-no-properties beg end))
)))))
(prog1
(prin1 value)
(setq end (point))
(when (and (bufferp standard-output)
(or (not (null print-length))
(not (null print-level)))
(not (string= unabbreviated
(buffer-substring-no-properties beg end))))
(last-sexp-setup-props beg end value
unabbreviated
(buffer-substring-no-properties beg end))
))))))
(defun eval-last-sexp (eval-last-sexp-arg-internal)