Mercurial > emacs
comparison src/fns.c @ 759:58b7fc91b74a
*** empty log message ***
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 11 Jul 1992 18:59:17 +0000 |
parents | 540b047ece4d |
children | f2efaa0394de |
comparison
equal
deleted
inserted
replaced
758:f8688580137c | 759:58b7fc91b74a |
---|---|
1080 | 1080 |
1081 /* Anything that calls this function must protect from GC! */ | 1081 /* Anything that calls this function must protect from GC! */ |
1082 | 1082 |
1083 DEFUN ("y-or-n-p", Fy_or_n_p, Sy_or_n_p, 1, 1, 0, | 1083 DEFUN ("y-or-n-p", Fy_or_n_p, Sy_or_n_p, 1, 1, 0, |
1084 "Ask user a \"y or n\" question. Return t if answer is \"y\".\n\ | 1084 "Ask user a \"y or n\" question. Return t if answer is \"y\".\n\ |
1085 Takes one argument, which is the string to display to ask the question.\n\ | |
1086 It should end in a space; `y-or-n-p' adds `(y or n) ' to it.\n\ | |
1085 No confirmation of the answer is requested; a single character is enough.\n\ | 1087 No confirmation of the answer is requested; a single character is enough.\n\ |
1086 Also accepts Space to mean yes, or Delete to mean no.") | 1088 Also accepts Space to mean yes, or Delete to mean no.") |
1087 (prompt) | 1089 (prompt) |
1088 Lisp_Object prompt; | 1090 Lisp_Object prompt; |
1089 { | 1091 { |
1149 } | 1151 } |
1150 | 1152 |
1151 /* Anything that calls this function must protect from GC! */ | 1153 /* Anything that calls this function must protect from GC! */ |
1152 | 1154 |
1153 DEFUN ("yes-or-no-p", Fyes_or_no_p, Syes_or_no_p, 1, 1, 0, | 1155 DEFUN ("yes-or-no-p", Fyes_or_no_p, Syes_or_no_p, 1, 1, 0, |
1154 "Ask user a yes or no question. Return t if answer is yes.\n\ | 1156 "Ask user a yes-or-no question. Return t if answer is yes.\n\ |
1155 The user must confirm the answer with a newline,\n\ | 1157 Takes one argument, which is the string to display to ask the question.\n\ |
1156 and can rub it out if not confirmed.") | 1158 It should end in a space; `yes-or-no-p' adds `(yes or no) ' to it.\n\ |
1159 The user must confirm the answer with RET,\n\ | |
1160 and can edit it until it as been confirmed.") | |
1157 (prompt) | 1161 (prompt) |
1158 Lisp_Object prompt; | 1162 Lisp_Object prompt; |
1159 { | 1163 { |
1160 register Lisp_Object ans; | 1164 register Lisp_Object ans; |
1161 Lisp_Object args[2]; | 1165 Lisp_Object args[2]; |