Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 24895:485668a57232
(eval-defun): Doc fix.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Sun, 27 Jun 1999 21:45:34 +0000 |
parents | 2ef2813414b6 |
children | 2aa414a532f2 |
comparison
equal
deleted
inserted
replaced
24894:dcb1db1b1105 | 24895:485668a57232 |
---|---|
344 expr)) | 344 expr)) |
345 (set-syntax-table stab))))))) | 345 (set-syntax-table stab))))))) |
346 | 346 |
347 (defun eval-defun (eval-defun-arg-internal) | 347 (defun eval-defun (eval-defun-arg-internal) |
348 "Evaluate defun that point is in or before. | 348 "Evaluate defun that point is in or before. |
349 Print value in minibuffer. | 349 The value is displayed in the minibuffer. |
350 If the current defun is actually a call to `defvar', | |
351 then reset the variable using the initial value expression | |
352 even if the variable already has some other value. | |
353 \(Normally `defvar' does not change the variable's value | |
354 if it already has a value.\) | |
355 | |
350 With argument, insert value in current buffer after the defun. | 356 With argument, insert value in current buffer after the defun. |
351 Return the result of evaluation." | 357 Return the result of evaluation." |
352 (interactive "P") | 358 (interactive "P") |
353 (let ((standard-output (if eval-defun-arg-internal (current-buffer) t)) | 359 (let ((standard-output (if eval-defun-arg-internal (current-buffer) t)) |
354 beg end form) | 360 beg end form) |