mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

(Fy_or_n_p): Echo the answer just once, at exit.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-04-13 05:54:00 +00:00
parent 342df1e247
commit 09c9587416
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/fns.c
View File

@ -1108,8 +1108,8 @@ Also accepts Space to mean yes, or Delete to mean no.")
while (1)
{
message ("%s(y or n) ", XSTRING (xprompt)->data);
cursor_in_echo_area = 1;
message ("%s(y or n) ", XSTRING (xprompt)->data);
obj = read_char (0, 0, 0, Qnil, 0);
cursor_in_echo_area = 0;
@ -1120,11 +1120,6 @@ Also accepts Space to mean yes, or Delete to mean no.")
def = Flookup_key (map, key);
answer_string = Fsingle_key_description (obj);
cursor_in_echo_area = -1;
message ("%s(y or n) %s", XSTRING (xprompt)->data,
XSTRING (answer_string)->data);
cursor_in_echo_area = ocech;
if (EQ (def, intern ("skip")))
{
answer = 0;
@ -1161,7 +1156,12 @@ Also accepts Space to mean yes, or Delete to mean no.")
}
UNGCPRO;
message ("%s(y or n) %c", XSTRING (xprompt)->data, answer ? 'y' : 'n');
if (! noninteractive)
{
cursor_in_echo_area = -1;
message ("%s(y or n) %c", XSTRING (xprompt)->data, answer ? 'y' : 'n');
cursor_in_echo_area = ocech;
}
return answer ? Qt : Qnil;
}