aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1995-04-03 22:14:27 +0000
committerKarl Heuer1995-04-03 22:14:27 +0000
commitd8616fc1c3dfdf238730205e614917a717dcdb9c (patch)
tree7b1e8fe5ee705c0028a723885a3bea19f2f55f42
parent6c4429a5022ada4141960825bdd34ee54938d19d (diff)
downloademacs-d8616fc1c3dfdf238730205e614917a717dcdb9c.tar.gz
emacs-d8616fc1c3dfdf238730205e614917a717dcdb9c.zip
(Fy_or_n_p): Don't log prompt.
(Fyes_or_no_p): Fix typo in doc string.
-rw-r--r--src/fns.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/fns.c b/src/fns.c
index 97fc34ce83a..b59045889cc 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -1261,7 +1261,7 @@ Also accepts Space to mean yes, or Delete to mean no.")
1261 } 1261 }
1262#endif 1262#endif
1263 cursor_in_echo_area = 1; 1263 cursor_in_echo_area = 1;
1264 message ("%s(y or n) ", XSTRING (xprompt)->data); 1264 message_nolog ("%s(y or n) ", XSTRING (xprompt)->data);
1265 1265
1266 obj = read_filtered_event (1, 0, 0); 1266 obj = read_filtered_event (1, 0, 0);
1267 cursor_in_echo_area = 0; 1267 cursor_in_echo_area = 0;
@@ -1315,7 +1315,8 @@ Also accepts Space to mean yes, or Delete to mean no.")
1315 if (! noninteractive) 1315 if (! noninteractive)
1316 { 1316 {
1317 cursor_in_echo_area = -1; 1317 cursor_in_echo_area = -1;
1318 message ("%s(y or n) %c", XSTRING (xprompt)->data, answer ? 'y' : 'n'); 1318 message_nolog ("%s(y or n) %c",
1319 XSTRING (xprompt)->data, answer ? 'y' : 'n');
1319 cursor_in_echo_area = ocech; 1320 cursor_in_echo_area = ocech;
1320 } 1321 }
1321 1322
@@ -1341,7 +1342,7 @@ DEFUN ("yes-or-no-p", Fyes_or_no_p, Syes_or_no_p, 1, 1, 0,
1341Takes one argument, which is the string to display to ask the question.\n\ 1342Takes one argument, which is the string to display to ask the question.\n\
1342It should end in a space; `yes-or-no-p' adds `(yes or no) ' to it.\n\ 1343It should end in a space; `yes-or-no-p' adds `(yes or no) ' to it.\n\
1343The user must confirm the answer with RET,\n\ 1344The user must confirm the answer with RET,\n\
1344and can edit it until it as been confirmed.") 1345and can edit it until it has been confirmed.")
1345 (prompt) 1346 (prompt)
1346 Lisp_Object prompt; 1347 Lisp_Object prompt;
1347{ 1348{