* lread.c (read_char): Add an extern declaration for this,

[gnu-emacs] / src / dired.c

diff --git a/src/dired.c b/src/dired.c
index a222e9409289ef82b8d91289a1e4ef949550d9ff..451907fbbe428cdf44c55fa3ba22cc300c431965 100644 (file)
--- a/src/dired.c
+++ b/src/dired.c
@@ -1,5 +1,5 @@
 /* Lisp functions for making directory listings.
-   Copyright (C) 1985, 1986 Free Software Foundation, Inc.
+   Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -67,6 +67,8 @@ extern struct direct *readdir ();
 #define lstat stat
 #endif
 
+extern Lisp_Object find_file_handler ();
+
 Lisp_Object Vcompletion_ignored_extensions;
 
 Lisp_Object Qcompletion_ignore_case;
@@ -472,7 +474,7 @@ Otherwise, list elements are:\n\
 10. inode number.\n\
 11. Device number.\n\
 \n\
-If file does not exists, returns nil.")
+If file does not exist, returns nil.")
   (filename)
      Lisp_Object filename;
 {
@@ -520,7 +522,7 @@ If file does not exists, returns nil.")
 #endif
 #ifdef BSD4_2                  /* file gid will be dir gid */
   dirname = Ffile_name_directory (filename);
-  if (dirname != Qnil && stat (XSTRING (dirname)->data, &sdir) == 0)
+  if (! NILP (dirname) && stat (XSTRING (dirname)->data, &sdir) == 0)
     values[9] = (sdir.st_gid != s.st_gid) ? Qt : Qnil;
   else                                 /* if we can't tell, assume worst */
     values[9] = Qt;