# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 744515514 0
# Node ID cbfcf187b5da5f8507a28b70dc785e5399245bb0
# Parent  510c0b48884fa696fcdefb79e57f29f8d47c3eae
(Fyes_or_no_p): Use Qyes_or_no_p_history.
(syms_of_fns): Set up Qyes_or_no_p_history.

diff -r 510c0b48884f -r cbfcf187b5da src/fns.c
--- a/src/fns.c	Thu Aug 05 01:37:04 1993 +0000
+++ b/src/fns.c	Thu Aug 05 01:51:54 1993 +0000
@@ -33,6 +33,7 @@
 #include "intervals.h"
 
 Lisp_Object Qstring_lessp, Qprovide, Qrequire;
+Lisp_Object Qyes_or_no_p_history;
 
 static Lisp_Object internal_equal ();
 
@@ -1216,7 +1217,8 @@
   GCPRO1 (prompt);
   while (1)
     {
-      ans = Fdowncase (Fread_string (prompt, Qnil));
+      ans = Fdowncase (Fread_from_minibuffer (prompt, Qnil, Qnil, Qnil,
+					      Qyes_or_no_p_history));
       if (XSTRING (ans)->size == 3 && !strcmp (XSTRING (ans)->data, "yes"))
 	{
 	  UNGCPRO;
@@ -1333,6 +1335,8 @@
   staticpro (&Qprovide);
   Qrequire = intern ("require");
   staticpro (&Qrequire);
+  Qyes_or_no_p_history = intern ("yes-or-no-p-history");
+  staticpro (&Qyes_or_no_p_history);
 
   DEFVAR_LISP ("features", &Vfeatures,
     "A list of symbols which are the features of the executing emacs.\n\