Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
279:c20b2fb5bb0a 280:7df0dd720c89
527 return Fsubstring (bestmatch, Qzero, make_int (bestmatchsize)); 527 return Fsubstring (bestmatch, Qzero, make_int (bestmatchsize));
528 } 528 }
529 529
530 530
531 Lisp_Object 531 Lisp_Object
532 make_directory_hash_table (char *path) 532 make_directory_hash_table (CONST char *path)
533 { 533 {
534 DIR *d; 534 DIR *d;
535 DIRENTRY *dp;
536 Bytecount len;
537 Lisp_Object hash = make_lisp_hashtable (100, HASHTABLE_NONWEAK, 535 Lisp_Object hash = make_lisp_hashtable (100, HASHTABLE_NONWEAK,
538 HASHTABLE_EQUAL); 536 HASHTABLE_EQUAL);
539 if ((d = opendir (path))) 537 if ((d = opendir (path)))
540 { 538 {
539 DIRENTRY *dp;
540
541 while ((dp = readdir (d))) 541 while ((dp = readdir (d)))
542 { 542 {
543 len = NAMLEN (dp); 543 Bytecount len = NAMLEN (dp);
544 if (DIRENTRY_NONEMPTY (dp)) 544 if (DIRENTRY_NONEMPTY (dp))
545 Fputhash (make_ext_string ((Bufbyte *) dp->d_name, len, 545 Fputhash (make_ext_string ((Bufbyte *) dp->d_name, len,
546 FORMAT_FILENAME), Qt, hash); 546 FORMAT_FILENAME), Qt, hash);
547 } 547 }
548 closedir (d); 548 closedir (d);