diff options
| author | Richard M. Stallman | 2001-11-06 04:44:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-11-06 04:44:51 +0000 |
| commit | 2bb659660ed7aff6dab10d30e914368993c6f855 (patch) | |
| tree | 1842797c94d78f21a63ee08c927f11b04ad9b14f | |
| parent | f4bb9409885a2b0b26dbaa77059d8628920530ff (diff) | |
| download | emacs-2bb659660ed7aff6dab10d30e914368993c6f855.tar.gz emacs-2bb659660ed7aff6dab10d30e914368993c6f855.zip | |
(eval-last-sexp-1): Return the value of the evaluated form.
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 34321783b81..6b110dbd9f7 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el | |||
| @@ -482,17 +482,18 @@ With argument, print output into current buffer." | |||
| 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) |