Mercurial > emacs
changeset 25206:f2c7d7fb6198
(Feval_buffer): New arg DO_ALLOW_PRINT.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 07 Aug 1999 16:16:32 +0000 |
| parents | 14269f6d315b |
| children | e62d2121822f |
| files | src/lread.c |
| diffstat | 1 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lread.c Sat Aug 07 16:10:47 1999 +0000 +++ b/src/lread.c Sat Aug 07 16:16:32 1999 +0000 @@ -1162,7 +1162,7 @@ #ifndef standalone -DEFUN ("eval-buffer", Feval_buffer, Seval_buffer, 0, 4, "", +DEFUN ("eval-buffer", Feval_buffer, Seval_buffer, 0, 5, "", "Execute the current buffer as Lisp code.\n\ Programs can pass two arguments, BUFFER and PRINTFLAG.\n\ BUFFER is the buffer to evaluate (nil means use current buffer).\n\ @@ -1171,10 +1171,15 @@ \n\ If the optional third argument FILENAME is non-nil,\n\ it specifies the file name to use for `load-history'.\n\ +The optional fourth argument UNIBYTE specifies `load-convert-to-unibyte'\n\ +for this invocation.\n\ +\n\ +The optional fifth argument DO-ALLOW-PRINT, if not-nil, specifies that\n\ +`print' and related functions should work normally even if PRINTFLAG is nil.\n\ \n\ This function preserves the position of point.") - (buffer, printflag, filename, unibyte) - Lisp_Object buffer, printflag, filename, unibyte; + (buffer, printflag, filename, unibyte, do_allow_print) + Lisp_Object buffer, printflag, filename, unibyte, do_allow_print; { int count = specpdl_ptr - specpdl; Lisp_Object tem, buf; @@ -1186,7 +1191,7 @@ if (NILP (buf)) error ("No such buffer"); - if (NILP (printflag)) + if (NILP (printflag) && NILP (do_allow_print)) tem = Qsymbolp; else tem = printflag;