(Fdirectory_files, Fdirectory_files_and_attributes):

Arguments GCPRO'ed in call to file name handler.

diff --git a/src/ChangeLog b/src/ChangeLog
index f3b9d0f81eabdca86547b747864db5da5401e6ea..1d153f72530a73b09c325b9c1c278baa24fe0e9c 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2003-12-25  Lars Hansen <larsh@math.ku.dk>
+
+       * dired.c (Fdirectory_files, Fdirectory_files_and_attributes):
+       Arguments GCPRO'ed in call to file name handler.
+
 2003-12-25  Thien-Thi Nguyen  <ttn@gnu.org>
 
        * termcap.c (tgetst1): Scan for "%pN"; if all

diff --git a/src/dired.c b/src/dired.c
index 52a19f4fdc62afbffd372067134de822e64a237c..3bcd3051c25060b123ebb454f34b7f7d5d93691a 100644 (file)
--- a/src/dired.c
+++ b/src/dired.c
@@ -359,17 +359,8 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable.
      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 @@ ID-FORMAT specifies the preferred format of attributes uid and gid, see
      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);
 }