Mercurial > hg > xemacs-beta

diff src/dired.c @ 280:7df0dd720c89 r21-0b38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents 6330739388db
children 6240c7796c7a
line wrap: on
line diff
--- a/src/dired.c	Mon Aug 13 10:31:30 2007 +0200
+++ b/src/dired.c	Mon Aug 13 10:32:22 2007 +0200
@@ -529,18 +529,18 @@
 
 
 Lisp_Object
-make_directory_hash_table (char *path)
+make_directory_hash_table (CONST char *path)
 {
   DIR *d;
-  DIRENTRY *dp;
-  Bytecount len;
   Lisp_Object hash = make_lisp_hashtable (100, HASHTABLE_NONWEAK,
 					  HASHTABLE_EQUAL);
   if ((d = opendir (path)))
     {
+      DIRENTRY *dp;
+
       while ((dp = readdir (d)))
 	{
-	  len = NAMLEN (dp);
+	  Bytecount len = NAMLEN (dp);
 	  if (DIRENTRY_NONEMPTY (dp))
 	    Fputhash (make_ext_string ((Bufbyte *) dp->d_name, len,
 				       FORMAT_FILENAME), Qt, hash);