From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 7 Aug 1999 16:16:32 +0000 (+0000)
Subject: (Feval_buffer): New arg DO_ALLOW_PRINT.
X-Git-Tag: emacs-pretest-21.0.90~7235
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1076254d8344645775b45eefdd16dddf2863179e;p=emacs.git

(Feval_buffer): New arg DO_ALLOW_PRINT.
---

diff --git a/src/lread.c b/src/lread.c
index 3821557cffb..fce29ee874c 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1162,7 +1162,7 @@ readevalloop (readcharfun, stream, sourcename, evalfun, printflag, unibyte, read
 
 #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 @@ nil means discard it; anything else is stream for print.\n\
 \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 @@ This function preserves the position of point.")
   if (NILP (buf))
     error ("No such buffer");
 
-  if (NILP (printflag))
+  if (NILP (printflag) && NILP (do_allow_print))
     tem = Qsymbolp;
   else
     tem = printflag;