Mercurial > emacs

comparison src/fns.c @ 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 71541ea16adf
children eb2af4aa80e4
comparison
equal deleted inserted replaced
4455:510c0b48884f 4456:cbfcf187b5da
31 #include "buffer.h" 31 #include "buffer.h"
32 #include "keyboard.h" 32 #include "keyboard.h"
33 #include "intervals.h" 33 #include "intervals.h"
34 34
35 Lisp_Object Qstring_lessp, Qprovide, Qrequire; 35 Lisp_Object Qstring_lessp, Qprovide, Qrequire;
36 Lisp_Object Qyes_or_no_p_history;
36 37
37 static Lisp_Object internal_equal (); 38 static Lisp_Object internal_equal ();
38 39
39 DEFUN ("identity", Fidentity, Sidentity, 1, 1, 0, 40 DEFUN ("identity", Fidentity, Sidentity, 1, 1, 0,
40 "Return the argument unchanged.") 41 "Return the argument unchanged.")
1214 prompt = Fconcat (2, args); 1215 prompt = Fconcat (2, args);
1215 1216
1216 GCPRO1 (prompt); 1217 GCPRO1 (prompt);
1217 while (1) 1218 while (1)
1218 { 1219 {
1219 ans = Fdowncase (Fread_string (prompt, Qnil)); 1220 ans = Fdowncase (Fread_from_minibuffer (prompt, Qnil, Qnil, Qnil,
1221 Qyes_or_no_p_history));
1220 if (XSTRING (ans)->size == 3 && !strcmp (XSTRING (ans)->data, "yes")) 1222 if (XSTRING (ans)->size == 3 && !strcmp (XSTRING (ans)->data, "yes"))
1221 { 1223 {
1222 UNGCPRO; 1224 UNGCPRO;
1223 return Qt; 1225 return Qt;
1224 } 1226 }
1331 staticpro (&Qstring_lessp); 1333 staticpro (&Qstring_lessp);
1332 Qprovide = intern ("provide"); 1334 Qprovide = intern ("provide");
1333 staticpro (&Qprovide); 1335 staticpro (&Qprovide);
1334 Qrequire = intern ("require"); 1336 Qrequire = intern ("require");
1335 staticpro (&Qrequire); 1337 staticpro (&Qrequire);
1338 Qyes_or_no_p_history = intern ("yes-or-no-p-history");
1339 staticpro (&Qyes_or_no_p_history);
1336 1340
1337 DEFVAR_LISP ("features", &Vfeatures, 1341 DEFVAR_LISP ("features", &Vfeatures,
1338 "A list of symbols which are the features of the executing emacs.\n\ 1342 "A list of symbols which are the features of the executing emacs.\n\
1339 Used by `featurep' and `require', and altered by `provide'."); 1343 Used by `featurep' and `require', and altered by `provide'.");
1340 Vfeatures = Qnil; 1344 Vfeatures = Qnil;