Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 40759:7441fb1a40ac
(eval-last-sexp-1): Return the value of the evaluated form.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 06 Nov 2001 04:44:51 +0000 |
| parents | b1a039465517 |
| children | 3b3c00fa282a |
comparison
equal
deleted
inserted
replaced
| 40758:00382536d185 | 40759:7441fb1a40ac |
|---|---|
| 480 (prin1-to-string value))) | 480 (prin1-to-string value))) |
| 481 (print-length eval-expression-print-length) | 481 (print-length eval-expression-print-length) |
| 482 (print-level eval-expression-print-level) | 482 (print-level eval-expression-print-level) |
| 483 (beg (point)) | 483 (beg (point)) |
| 484 end) | 484 end) |
| 485 (prin1 value) | 485 (prog1 |
| 486 (setq end (point)) | 486 (prin1 value) |
| 487 (when (and (bufferp standard-output) | 487 (setq end (point)) |
| 488 (or (not (null print-length)) | 488 (when (and (bufferp standard-output) |
| 489 (not (null print-level))) | 489 (or (not (null print-length)) |
| 490 (not (string= unabbreviated | 490 (not (null print-level))) |
| 491 (buffer-substring-no-properties beg end)))) | 491 (not (string= unabbreviated |
| 492 (last-sexp-setup-props beg end value | 492 (buffer-substring-no-properties beg end)))) |
| 493 unabbreviated | 493 (last-sexp-setup-props beg end value |
| 494 (buffer-substring-no-properties beg end)) | 494 unabbreviated |
| 495 ))))) | 495 (buffer-substring-no-properties beg end)) |
| 496 )))))) | |
| 496 | 497 |
| 497 | 498 |
| 498 (defun eval-last-sexp (eval-last-sexp-arg-internal) | 499 (defun eval-last-sexp (eval-last-sexp-arg-internal) |
| 499 "Evaluate sexp before point; print value in minibuffer. | 500 "Evaluate sexp before point; print value in minibuffer. |
| 500 Interactively, with prefix argument, print output into current buffer." | 501 Interactively, with prefix argument, print output into current buffer." |