(Ffile_attributes): Add a missing gcpro.

diff --git a/src/dired.c b/src/dired.c
index ab6d056..62bf4be 100644 (file)
--- a/src/dired.c
+++ b/src/dired.c
@@ -906,6 +906,7 @@ Elements of the attribute list are:
 #endif
   char modes[10];
   Lisp_Object handler;
+  struct gcpro gcpro1;
 
   filename = Fexpand_file_name (filename, Qnil);
 
@@ -921,7 +922,9 @@ Elements of the attribute list are:
        return call3 (handler, Qfile_attributes, filename, id_format);
     }
 
+  GCPRO1 (filename);
   encoded = ENCODE_FILE (filename);
+  UNGCPRO;
 
   if (lstat (SDATA (encoded), &s) < 0)
     return Qnil;