# HG changeset patch
# User Lars Hansen <larsh@soem.dk>
# Date 1072372355 0
# Node ID 2dc8ac2e5bf67601a8005dc430651da6312d916e
# Parent  128d7f57fc59d6bfb824ac16c234bf4d95cedf8e
(Fdirectory_files, Fdirectory_files_and_attributes):
Arguments GCPRO'ed in call to file name handler.

diff -r 128d7f57fc59 -r 2dc8ac2e5bf6 src/dired.c
--- a/src/dired.c	Thu Dec 25 14:10:31 2003 +0000
+++ b/src/dired.c	Thu Dec 25 17:12:35 2003 +0000
@@ -359,17 +359,8 @@
      call the corresponding file handler.  */
   handler = Ffind_file_name_handler (directory, Qdirectory_files);
   if (!NILP (handler))
-    {
-      Lisp_Object args[6];
-
-      args[0] = handler;
-      args[1] = Qdirectory_files;
-      args[2] = directory;
-      args[3] = full;
-      args[4] = match;
-      args[5] = nosort;
-      return Ffuncall (6, args);
-    }
+    return call5 (handler, Qdirectory_files, directory,
+                  full, match, nosort);
 
   return directory_files_internal (directory, full, match, nosort, 0, Qnil);
 }
@@ -395,18 +386,8 @@
      call the corresponding file handler.  */
   handler = Ffind_file_name_handler (directory, Qdirectory_files_and_attributes);
   if (!NILP (handler))
-    {
-      Lisp_Object args[7];
-
-      args[0] = handler;
-      args[1] = Qdirectory_files_and_attributes;
-      args[2] = directory;
-      args[3] = full;
-      args[4] = match;
-      args[5] = nosort;
-      args[6] = id_format;
-      return Ffuncall (7, args);
-    }
+    return call6 (handler, Qdirectory_files_and_attributes,
+                  directory, full, match, nosort, id_format);
 
   return directory_files_internal (directory, full, match, nosort, 1, id_format);
 }