procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Fyes_or_no_p): Use Qyes_or_no_p_history.

Browse source 
(syms_of_fns): Set up Qyes_or_no_p_history.
This commit is contained in:
Richard M. Stallman 1993-08-05 01:51:54 +00:00
parent 97c48db572
commit 0ce830bc26
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/fns.c
View file

@ -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\