procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(elisp-eval-buffer): Handle all 5 args of eval-buffer.

Browse source
This commit is contained in:
Richard M. Stallman 1999-08-07 03:21:32 +00:00
parent 8dd08b5b47
commit ffe4eb5ea2
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/eval-reg.el
View file

@ -210,7 +210,8 @@ This version calls `eval-region' on the whole buffer."
(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 @@ This version calls `eval-region' on the whole buffer."
(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)