Mercurial > emacs
comparison src/fns.c @ 1093:64d7858e7b48
(Fy_or_n_p): Pass new args to read_char.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 11 Sep 1992 23:28:03 +0000 |
| parents | 2ac1c701fced |
| children | e1329d41271d |
comparison
equal
deleted
inserted
replaced
| 1092:c2259db856ee | 1093:64d7858e7b48 |
|---|---|
| 1099 while (1) | 1099 while (1) |
| 1100 { | 1100 { |
| 1101 message ("%s(y or n) ", XSTRING (xprompt)->data); | 1101 message ("%s(y or n) ", XSTRING (xprompt)->data); |
| 1102 cursor_in_echo_area = 1; | 1102 cursor_in_echo_area = 1; |
| 1103 | 1103 |
| 1104 obj = read_char (0); | 1104 obj = read_char (0, 0, 0, Qnil, 0); |
| 1105 if (XTYPE (obj) == Lisp_Int) | 1105 if (XTYPE (obj) == Lisp_Int) |
| 1106 ans = XINT (obj); | 1106 ans = XINT (obj); |
| 1107 else | 1107 else |
| 1108 continue; | 1108 continue; |
| 1109 | 1109 |