From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 24 Mar 2005 22:06:36 +0000 (+0000)
Subject: (Ffile_attributes): Add a missing gcpro.
X-Git-Tag: ttn-vms-21-2-B4~1562
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7435aef8d027a45537d36d1a3c0c0ccd73157335;p=emacs.git

(Ffile_attributes): Add a missing gcpro.
---

diff --git a/src/dired.c b/src/dired.c
index ab6d0569107..62bf4beb384 100644
--- 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;