Mercurial > emacs

changeset 4456:cbfcf187b5da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fyes_or_no_p): Use Qyes_or_no_p_history. (syms_of_fns): Set up Qyes_or_no_p_history.
author Richard M. Stallman <rms@gnu.org>
date Thu, 05 Aug 1993 01:51:54 +0000
parents 510c0b48884f
children acb5dda629d7
files src/fns.c
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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\