(Fyes_or_no_p): Use Qyes_or_no_p_history.

(syms_of_fns): Set up Qyes_or_no_p_history.

1 files changed, 5 insertions, 1 deletions

diff --git a/src/fns.c b/src/fns.c
index 18d645dcd17..192711ec27c 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -33,6 +33,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #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 @@ and can edit it until it as been confirmed.")
   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 @@ syms_of_fns ()
   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\