Commit 2bb65966 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent f4bb9409
...@@ -482,17 +482,18 @@ With argument, print output into current buffer." ...@@ -482,17 +482,18 @@ With argument, print output into current buffer."
(print-level eval-expression-print-level) (print-level eval-expression-print-level)
(beg (point)) (beg (point))
end) end)
(prin1 value) (prog1
(setq end (point)) (prin1 value)
(when (and (bufferp standard-output) (setq end (point))
(or (not (null print-length)) (when (and (bufferp standard-output)
(not (null print-level))) (or (not (null print-length))
(not (string= unabbreviated (not (null print-level)))
(buffer-substring-no-properties beg end)))) (not (string= unabbreviated
(last-sexp-setup-props beg end value (buffer-substring-no-properties beg end))))
unabbreviated (last-sexp-setup-props beg end value
(buffer-substring-no-properties beg end)) unabbreviated
))))) (buffer-substring-no-properties beg end))
))))))
(defun eval-last-sexp (eval-last-sexp-arg-internal) (defun eval-last-sexp (eval-last-sexp-arg-internal)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment