Mercurial > emacs
comparison src/minibuf.c @ 18862:2498c062473b
(Fcompleting_read): gcpro def.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 19 Jul 1997 03:26:48 +0000 |
| parents | db49bcffa9b2 |
| children | 1ff8b0bca025 |
comparison
equal
deleted
inserted
replaced
| 18861:ed1871a409c8 | 18862:2498c062473b |
|---|---|
| 1155 Lisp_Object prompt, table, predicate, require_match, init, hist, def; | 1155 Lisp_Object prompt, table, predicate, require_match, init, hist, def; |
| 1156 { | 1156 { |
| 1157 Lisp_Object val, histvar, histpos, position; | 1157 Lisp_Object val, histvar, histpos, position; |
| 1158 int pos = 0; | 1158 int pos = 0; |
| 1159 int count = specpdl_ptr - specpdl; | 1159 int count = specpdl_ptr - specpdl; |
| 1160 struct gcpro gcpro1; | |
| 1161 | |
| 1162 GCPRO1 (def); | |
| 1163 | |
| 1160 specbind (Qminibuffer_completion_table, table); | 1164 specbind (Qminibuffer_completion_table, table); |
| 1161 specbind (Qminibuffer_completion_predicate, predicate); | 1165 specbind (Qminibuffer_completion_predicate, predicate); |
| 1162 specbind (Qminibuffer_completion_confirm, | 1166 specbind (Qminibuffer_completion_confirm, |
| 1163 EQ (require_match, Qt) ? Qnil : Qt); | 1167 EQ (require_match, Qt) ? Qnil : Qt); |
| 1164 last_exact_completion = Qnil; | 1168 last_exact_completion = Qnil; |
| 1200 : Vminibuffer_local_must_match_map, | 1204 : Vminibuffer_local_must_match_map, |
| 1201 init, prompt, make_number (pos), 0, | 1205 init, prompt, make_number (pos), 0, |
| 1202 histvar, histpos, def, 0); | 1206 histvar, histpos, def, 0); |
| 1203 if (STRINGP (val) && XSTRING (val)->size == 0 && ! NILP (def)) | 1207 if (STRINGP (val) && XSTRING (val)->size == 0 && ! NILP (def)) |
| 1204 val = def; | 1208 val = def; |
| 1205 return unbind_to (count, val); | 1209 RETURN_UNGCPRO (unbind_to (count, val)); |
| 1206 } | 1210 } |
| 1207 | 1211 |
| 1208 Lisp_Object Fminibuffer_completion_help (); | 1212 Lisp_Object Fminibuffer_completion_help (); |
| 1209 Lisp_Object assoc_for_completion (); | 1213 Lisp_Object assoc_for_completion (); |
| 1210 /* A subroutine of Fintern_soft. */ | 1214 /* A subroutine of Fintern_soft. */ |