From 0ce830bc2648634e9dfbb8ede58f5457a7d4a83e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 5 Aug 1993 01:51:54 +0000 Subject: [PATCH] (Fyes_or_no_p): Use Qyes_or_no_p_history. (syms_of_fns): Set up Qyes_or_no_p_history. --- src/fns.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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\ -- 2.39.5