Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 422:5abb8aac7c6b
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Fri, 25 Oct 1991 22:16:38 +0000 |
| parents | adb31fcccc2b |
| children | 4cd7543be581 |
comparison
equal
deleted
inserted
replaced
| 421:1cc29824b3f1 | 422:5abb8aac7c6b |
|---|---|
| 200 (run-hooks 'lisp-interaction-mode-hook)) | 200 (run-hooks 'lisp-interaction-mode-hook)) |
| 201 | 201 |
| 202 (defun eval-print-last-sexp () | 202 (defun eval-print-last-sexp () |
| 203 "Evaluate sexp before point; print value into current buffer." | 203 "Evaluate sexp before point; print value into current buffer." |
| 204 (interactive) | 204 (interactive) |
| 205 (terpri (current-buffer)) | 205 (let ((standard-output (current-buffer))) |
| 206 (eval-last-sexp t) | 206 (terpri) |
| 207 (terpri (current-buffer))) | 207 (eval-last-sexp t) |
| 208 (terpri))) | |
| 208 | 209 |
| 209 (defun eval-last-sexp (arg) | 210 (defun eval-last-sexp (arg) |
| 210 "Evaluate sexp before point; print value in minibuffer. | 211 "Evaluate sexp before point; print value in minibuffer. |
| 211 With argument, print output into current buffer." | 212 With argument, print output into current buffer." |
| 212 (interactive "P") | 213 (interactive "P") |