# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 780635274 0
# Node ID 37d46d623ed9eacd7dfbeafac7561aa06f65dd41
# Parent  48820d57a24ceda5fe37a53318fc8374e64165ee
(Ffile_name_completion, file_name_completion): Use type test macros.

diff -r 48820d57a24c -r 37d46d623ed9 src/dired.c
--- a/src/dired.c	Tue Sep 27 03:06:52 1994 +0000
+++ b/src/dired.c	Tue Sep 27 03:07:54 1994 +0000
@@ -239,7 +239,7 @@
      a directory name and has supplied one ending in a /.
      We would not want to add anything in that case
      even if there are some unique characters in that directory.  */
-  if (XTYPE (file) == Lisp_String && XSTRING (file)->size == 0)
+  if (STRINGP (file) && XSTRING (file)->size == 0)
     return file;
 
   /* If the file name has special constructs in it,
@@ -362,7 +362,7 @@
 		     CONSP (tem); tem = XCONS (tem)->cdr)
 		  {
 		    elt = XCONS (tem)->car;
-		    if (XTYPE (elt) != Lisp_String) continue;
+		    if (!STRINGP (elt)) continue;
 		    skip = len - XSTRING (elt)->size;
 		    if (skip < 0) continue;