diff options
| author | Karl Heuer | 1995-04-03 22:14:27 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-04-03 22:14:27 +0000 |
| commit | d8616fc1c3dfdf238730205e614917a717dcdb9c (patch) | |
| tree | 7b1e8fe5ee705c0028a723885a3bea19f2f55f42 | |
| parent | 6c4429a5022ada4141960825bdd34ee54938d19d (diff) | |
| download | emacs-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.c | 7 |
1 files changed, 4 insertions, 3 deletions
| @@ -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, | |||
| 1341 | Takes one argument, which is the string to display to ask the question.\n\ | 1342 | Takes one argument, which is the string to display to ask the question.\n\ |
| 1342 | It should end in a space; `yes-or-no-p' adds `(yes or no) ' to it.\n\ | 1343 | It should end in a space; `yes-or-no-p' adds `(yes or no) ' to it.\n\ |
| 1343 | The user must confirm the answer with RET,\n\ | 1344 | The user must confirm the answer with RET,\n\ |
| 1344 | and can edit it until it as been confirmed.") | 1345 | and can edit it until it has been confirmed.") |
| 1345 | (prompt) | 1346 | (prompt) |
| 1346 | Lisp_Object prompt; | 1347 | Lisp_Object prompt; |
| 1347 | { | 1348 | { |