Commit 0aefe6ac authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(elisp-eval-buffer): New arg FILENAME is ignored.

parent 20eff799
...@@ -199,11 +199,14 @@ This version calls `eval-region' on the whole buffer." ...@@ -199,11 +199,14 @@ This version calls `eval-region' on the whole buffer."
(eval-region (point-min) (point-max) elisp-output)) (eval-region (point-min) (point-max) elisp-output))
(defun elisp-eval-buffer (&optional elisp-bufname elisp-printflag) (defun elisp-eval-buffer (&optional elisp-bufname elisp-printflag filename)
"Execute BUFFER as Lisp code. Use current buffer if BUFFER is nil. "Execute BUFFER as Lisp code. Use current buffer if BUFFER is nil.
Programs can pass argument PRINTFLAG which controls printing of Programs can pass argument PRINTFLAG which controls printing of
output: nil means discard it; anything else is stream for print. output: nil means discard it; anything else is stream for print.
The argument FILENAME is accepted and ignored, just to avoid
crashes.
This version calls `eval-region' on the whole buffer." This version calls `eval-region' on the whole buffer."
(interactive) (interactive)
(if (null elisp-bufname) (if (null elisp-bufname)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment