Mercurial > emacs
changeset 18862:2498c062473b
(Fcompleting_read): gcpro def.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 19 Jul 1997 03:26:48 +0000 |
| parents | ed1871a409c8 |
| children | 62090ffa4583 |
| files | src/minibuf.c |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/minibuf.c Fri Jul 18 22:56:16 1997 +0000 +++ b/src/minibuf.c Sat Jul 19 03:26:48 1997 +0000 @@ -1157,6 +1157,10 @@ Lisp_Object val, histvar, histpos, position; int pos = 0; int count = specpdl_ptr - specpdl; + struct gcpro gcpro1; + + GCPRO1 (def); + specbind (Qminibuffer_completion_table, table); specbind (Qminibuffer_completion_predicate, predicate); specbind (Qminibuffer_completion_confirm, @@ -1202,7 +1206,7 @@ histvar, histpos, def, 0); if (STRINGP (val) && XSTRING (val)->size == 0 && ! NILP (def)) val = def; - return unbind_to (count, val); + RETURN_UNGCPRO (unbind_to (count, val)); } Lisp_Object Fminibuffer_completion_help ();