Mercurial > emacs
changeset 25199:69699e7e8e81
(elisp-eval-buffer): Handle all 5 args of eval-buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 07 Aug 1999 03:21:32 +0000 |
| parents | aaa595530183 |
| children | 8ab4da818dc0 |
| files | lisp/emacs-lisp/eval-reg.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/eval-reg.el Sat Aug 07 03:18:48 1999 +0000 +++ b/lisp/emacs-lisp/eval-reg.el Sat Aug 07 03:21:32 1999 +0000 @@ -210,7 +210,8 @@ (eval-region (point-min) (point-max) elisp-output)) -(defun elisp-eval-buffer (&optional elisp-bufname elisp-printflag filename) +(defun elisp-eval-buffer (&optional elisp-bufname elisp-printflag filename + unibyte do-allow-print) "Execute BUFFER as Lisp code. Use current buffer if BUFFER is nil. Programs can pass argument PRINTFLAG which controls printing of output: nil means discard it; anything else is stream for print. @@ -225,7 +226,8 @@ (save-excursion (set-buffer (or (get-buffer elisp-bufname) (error "No such buffer: %s" elisp-bufname))) - (eval-region (point-min) (point-max) elisp-printflag))) + (eval-region (point-min) (point-max) elisp-printflag + unibyte do-allow-print))) (provide 'eval-reg)