# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 764888118 0
# Node ID 3d314bef071a39e06fb4454d7e9c8f1f304886de
# Parent  fa8ff07eaafcaca90286631c5139a81682d6e295
(file_name_completion): Protect things from GC.

diff -r fa8ff07eaafc -r 3d314bef071a src/dired.c
--- a/src/dired.c	Mon Mar 28 20:21:44 1994 +0000
+++ b/src/dired.c	Mon Mar 28 20:55:18 1994 +0000
@@ -286,6 +286,8 @@
   int directoryp;
   int passcount;
   int count = specpdl_ptr - specpdl;
+  struct gcpro gcpro1, gcpro2, gcpro3;
+
 #ifdef VMS
   extern DIRENTRY * readdirver ();
 
@@ -305,8 +307,10 @@
 #ifdef FILE_SYSTEM_CASE
   file = FILE_SYSTEM_CASE (file);
 #endif
+  bestmatch = Qnil;
+  dirname = Qnil;
+  GCPRO3 (file, dirname, bestmatch);
   dirname = Fexpand_file_name (dirname, Qnil);
-  bestmatch = Qnil;
 
   /* With passcount = 0, ignore files that end in an ignored extension.
      If nothing found then try again with passcount = 1, don't ignore them.
@@ -451,7 +455,8 @@
       closedir (d);
     }
 
-  unbind_to (count, Qnil);
+  UNGCPRO;
+  bestmatch = unbind_to (count, bestmatch);
 
   if (all_flag || NILP (bestmatch))
     return bestmatch;