/* Lisp functions for making directory listings.
- Copyright (C) 1985, 1986, 1993, 1994, 1999, 2000, 2001, 2004
+ Copyright (C) 1985, 1986, 1993, 1994, 1999, 2000, 2001, 2004, 2005
Free Software Foundation, Inc.
This file is part of GNU Emacs.
#include <sys/types.h>
#include <sys/stat.h>
-#ifdef VMS
-#include "vms-pwd.h"
-#else
+#ifdef HAVE_PWD_H
#include <pwd.h>
+#endif
+#ifndef VMS
#include <grp.h>
#endif
extern int completion_ignore_case;
extern Lisp_Object Vcompletion_regexp_list;
-extern Lisp_Object Vfile_name_coding_system, Vdefault_file_name_coding_system;
Lisp_Object Vcompletion_ignored_extensions;
Lisp_Object Qcompletion_ignore_case;
#endif
char modes[10];
Lisp_Object handler;
+ struct gcpro gcpro1;
filename = Fexpand_file_name (filename, Qnil);
return call3 (handler, Qfile_attributes, filename, id_format);
}
+ GCPRO1 (filename);
encoded = ENCODE_FILE (filename);
+ UNGCPRO;
if (lstat (SDATA (encoded), &s) < 0)
return Qnil;