Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 2450:17d258d8e8e4
(eval-defun): Rename argument to avoid collision.
(eval-last-sexp): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 01 Apr 1993 22:20:19 +0000 |
| parents | 10e417efb12a |
| children | 420dfaaacfc5 |
comparison
equal
deleted
inserted
replaced
| 2449:03a298d9a7b4 | 2450:17d258d8e8e4 |
|---|---|
| 219 (let ((standard-output (current-buffer))) | 219 (let ((standard-output (current-buffer))) |
| 220 (terpri) | 220 (terpri) |
| 221 (eval-last-sexp t) | 221 (eval-last-sexp t) |
| 222 (terpri))) | 222 (terpri))) |
| 223 | 223 |
| 224 (defun eval-last-sexp (arg) | 224 (defun eval-last-sexp (eval-last-sexp-arg-internal) |
| 225 "Evaluate sexp before point; print value in minibuffer. | 225 "Evaluate sexp before point; print value in minibuffer. |
| 226 With argument, print output into current buffer." | 226 With argument, print output into current buffer." |
| 227 (interactive "P") | 227 (interactive "P") |
| 228 (let ((standard-output (if arg (current-buffer) t)) | 228 (let ((standard-output (if eval-last-sexp-arg-internal (current-buffer) t)) |
| 229 (opoint (point))) | 229 (opoint (point))) |
| 230 (prin1 (let ((stab (syntax-table))) | 230 (prin1 (let ((stab (syntax-table))) |
| 231 (eval (unwind-protect | 231 (eval (unwind-protect |
| 232 (save-excursion | 232 (save-excursion |
| 233 (set-syntax-table emacs-lisp-mode-syntax-table) | 233 (set-syntax-table emacs-lisp-mode-syntax-table) |
| 235 (save-restriction | 235 (save-restriction |
| 236 (narrow-to-region (point-min) opoint) | 236 (narrow-to-region (point-min) opoint) |
| 237 (read (current-buffer)))) | 237 (read (current-buffer)))) |
| 238 (set-syntax-table stab))))))) | 238 (set-syntax-table stab))))))) |
| 239 | 239 |
| 240 (defun eval-defun (arg) | 240 (defun eval-defun (eval-defun-arg-internal) |
| 241 "Evaluate defun that point is in or before. | 241 "Evaluate defun that point is in or before. |
| 242 Print value in minibuffer. | 242 Print value in minibuffer. |
| 243 With argument, insert value in current buffer after the defun." | 243 With argument, insert value in current buffer after the defun." |
| 244 (interactive "P") | 244 (interactive "P") |
| 245 (let ((standard-output (if arg (current-buffer) t))) | 245 (let ((standard-output (if eval-defun-arg-internal (current-buffer) t))) |
| 246 (prin1 (eval (save-excursion | 246 (prin1 (eval (save-excursion |
| 247 (end-of-defun) | 247 (end-of-defun) |
| 248 (beginning-of-defun) | 248 (beginning-of-defun) |
| 249 (read (current-buffer))))))) | 249 (read (current-buffer))))))) |
| 250 | 250 |