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." |