mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-18 10:16:51 +00:00
Code Issues Releases Activity

(Fcompleting_read): gcpro def.

Browse Source
This commit is contained in:
Richard M. Stallman 1997-07-19 03:26:48 +00:00
parent a8c828be8c
commit 0c8ee1a2e6
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/minibuf.c
View File

@ -1157,6 +1157,10 @@ DEFUN ("completing-read", Fcompleting_read, Scompleting_read, 2, 7, 0,
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 @@ DEFUN ("completing-read", Fcompleting_read, Scompleting_read, 2, 7, 0,
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 ();