From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 21 Dec 2002 17:56:16 +0000 (+0000)
Subject: (file_name_completion): Fix that change.
X-Git-Tag: ttn-vms-21-2-B4~11960
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c3a3229c39e435b7b3744d5dc9474189d87477da;p=emacs.git

(file_name_completion): Fix that change.
Delete special quit-handling code; just use QUIT.
---

diff --git a/src/dired.c b/src/dired.c
index 4cb8af883b5..e1aca66ba16 100644
--- a/src/dired.c
+++ b/src/dired.c
@@ -519,6 +519,8 @@ file_name_completion (file, dirname, all_flag, ver_flag)
 
   for (passcount = !!all_flag; NILP (bestmatch) && passcount < 2; passcount++)
     {
+      int inner_count = SPECPDL_INDEX ();
+
       d = opendir (SDATA (Fdirectory_file_name (encoded_dir)));
       if (!d)
 	report_file_error ("Opening directory", Fcons (dirname, Qnil));
@@ -543,8 +545,7 @@ file_name_completion (file, dirname, all_flag, ver_flag)
 
 	  len = NAMLEN (dp);
 
-	  if (!NILP (Vquit_flag) && NILP (Vinhibit_quit))
-	    goto quit;
+	  QUIT;
 	  if (! DIRENTRY_NONEMPTY (dp)
 	      || len < SCHARS (encoded_file)
 	      || 0 <= scmp (dp->d_name, SDATA (encoded_file),
@@ -719,12 +720,12 @@ file_name_completion (file, dirname, all_flag, ver_flag)
 	      bestmatchsize = matchsize;
 	    }
 	}
-      closedir (d);
-      /* Discard the unwind protect.  */
-      specpdl_ptr = specpdl + count;
+      /* This closes the directory.  */
+      bestmatch = unbind_to (inner_count, bestmatch);
     }
 
   UNGCPRO;
+  bestmatch = unbind_to (count, bestmatch);
 
   if (all_flag || NILP (bestmatch))
     {
@@ -740,13 +741,6 @@ file_name_completion (file, dirname, all_flag, ver_flag)
      decode it from the coding system in use.  */
   bestmatch = DECODE_FILE (bestmatch);
   return bestmatch;
-
- quit:
-  if (d) closedir (d);
-  /* Discard the unwind protect.  */
-  specpdl_ptr = specpdl + count;
-  Vquit_flag = Qnil;
-  return Fsignal (Qquit, Qnil);
 }
 
 /* Compare exactly LEN chars of strings at S1 and S2,