# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1057533969 0
# Node ID bd0acf8d5f972fe6d5091cb0d0147e0de7d73e9a
# Parent  80cf6737bde50f2c2ce4e09df6a10cab55da8938
(read_minibuf): UNGCPRO before returning.
(Ftry_completion, Fall_completions): Doc fix.

diff -r 80cf6737bde5 -r bd0acf8d5f97 src/minibuf.c
--- a/src/minibuf.c	Sun Jul 06 23:13:20 2003 +0000
+++ b/src/minibuf.c	Sun Jul 06 23:26:09 2003 +0000
@@ -485,6 +485,7 @@
       val = read_minibuf_noninteractive (map, initial, prompt, backup_n,
 					 expflag, histvar, histpos, defalt,
 					 allow_props, inherit_input_method);
+      UNGCPRO;
       return unbind_to (count, val);
     }
 
@@ -738,7 +739,8 @@
 
   /* The appropriate frame will get selected
      in set-window-configuration.  */
-  RETURN_UNGCPRO (unbind_to (count, val));
+  UNGCPRO;
+  return unbind_to (count, val);
 }
 
 /* Return a buffer to be used as the minibuffer at depth `depth'.
@@ -1125,7 +1127,8 @@
 
 DEFUN ("try-completion", Ftry_completion, Stry_completion, 2, 3, 0,
        doc: /* Return common substring of all completions of STRING in ALIST.
-Each car of each element of ALIST is tested to see if it begins with STRING.
+Each car of each element of ALIST (or each element if it is not a cons cell)
+is tested to see if it begins with STRING.
 All that match are compared together; the longest initial sequence
 common to all matches is returned as a string.
 If there is no match at all, nil is returned.
@@ -1367,7 +1370,8 @@
 
 DEFUN ("all-completions", Fall_completions, Sall_completions, 2, 4, 0,
        doc: /* Search for partial matches to STRING in ALIST.
-Each car of each element of ALIST is tested to see if it begins with STRING.
+Each car of each element of ALIST (or each element if it is not a cons cell)
+is tested to see if it begins with STRING.
 The value is a list of all the strings from ALIST that match.
 
 If ALIST is a hash-table, all the string keys are the possible matches.