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];