Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 38169:8a3e61895b17
(eval-last-sexp): Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 23 Jun 2001 19:36:23 +0000 |
| parents | 908deaf5c7f5 |
| children | d34fd7c9092b |
comparison
equal
deleted
inserted
replaced
| 38168:2b9edc97961c | 38169:8a3e61895b17 |
|---|---|
| 375 (print-level eval-expression-print-level)) | 375 (print-level eval-expression-print-level)) |
| 376 (prin1 value))))) | 376 (prin1 value))))) |
| 377 | 377 |
| 378 (defun eval-last-sexp (eval-last-sexp-arg-internal) | 378 (defun eval-last-sexp (eval-last-sexp-arg-internal) |
| 379 "Evaluate sexp before point; print value in minibuffer. | 379 "Evaluate sexp before point; print value in minibuffer. |
| 380 With argument, print output into current buffer." | 380 Interactively, with prefix argument, print output into current buffer." |
| 381 (interactive "P") | 381 (interactive "P") |
| 382 (if (null eval-expression-debug-on-error) | 382 (if (null eval-expression-debug-on-error) |
| 383 (eval-last-sexp-1 eval-last-sexp-arg-internal) | 383 (eval-last-sexp-1 eval-last-sexp-arg-internal) |
| 384 (let ((old-value (make-symbol "t")) new-value value) | 384 (let ((old-value (make-symbol "t")) new-value value) |
| 385 (let ((debug-on-error old-value)) | 385 (let ((debug-on-error old-value)) |