Mercurial > emacs
comparison src/dired.c @ 21514:fa9ff387d260
Fix -Wimplicit warnings.
author | Andreas Schwab <schwab@suse.de> |
---|---|
date | Tue, 14 Apr 1998 12:25:56 +0000 |
parents | 5f153464fc99 |
children | 596fa4fbae13 |
comparison
equal
deleted
inserted
replaced
21513:984881b316fc | 21514:fa9ff387d260 |
---|---|
27 | 27 |
28 #ifdef VMS | 28 #ifdef VMS |
29 #include <string.h> | 29 #include <string.h> |
30 #include <rms.h> | 30 #include <rms.h> |
31 #include <rmsdef.h> | 31 #include <rmsdef.h> |
32 #endif | |
33 | |
34 #ifdef HAVE_UNISTD_H | |
35 #include <unistd.h> | |
32 #endif | 36 #endif |
33 | 37 |
34 /* The d_nameln member of a struct dirent includes the '\0' character | 38 /* The d_nameln member of a struct dirent includes the '\0' character |
35 on some systems, but not on others. What's worse, you can't tell | 39 on some systems, but not on others. What's worse, you can't tell |
36 at compile-time which one it will be, since it really depends on | 40 at compile-time which one it will be, since it really depends on |
292 if (!NILP (handler)) | 296 if (!NILP (handler)) |
293 return call3 (handler, Qfile_name_all_completions, file, directory); | 297 return call3 (handler, Qfile_name_all_completions, file, directory); |
294 | 298 |
295 return file_name_completion (file, directory, 1, 0); | 299 return file_name_completion (file, directory, 1, 0); |
296 } | 300 } |
301 | |
302 static int file_name_completion_stat (); | |
297 | 303 |
298 Lisp_Object | 304 Lisp_Object |
299 file_name_completion (file, dirname, all_flag, ver_flag) | 305 file_name_completion (file, dirname, all_flag, ver_flag) |
300 Lisp_Object file, dirname; | 306 Lisp_Object file, dirname; |
301 int all_flag, ver_flag; | 307 int all_flag, ver_flag; |
545 if (d) closedir (d); | 551 if (d) closedir (d); |
546 Vquit_flag = Qnil; | 552 Vquit_flag = Qnil; |
547 return Fsignal (Qquit, Qnil); | 553 return Fsignal (Qquit, Qnil); |
548 } | 554 } |
549 | 555 |
556 static int | |
550 file_name_completion_stat (dirname, dp, st_addr) | 557 file_name_completion_stat (dirname, dp, st_addr) |
551 Lisp_Object dirname; | 558 Lisp_Object dirname; |
552 DIRENTRY *dp; | 559 DIRENTRY *dp; |
553 struct stat *st_addr; | 560 struct stat *st_addr; |
554 { | 561 { |
740 values[10] = make_number (s.st_ino); | 747 values[10] = make_number (s.st_ino); |
741 values[11] = make_number (s.st_dev); | 748 values[11] = make_number (s.st_dev); |
742 return Flist (sizeof(values) / sizeof(values[0]), values); | 749 return Flist (sizeof(values) / sizeof(values[0]), values); |
743 } | 750 } |
744 | 751 |
752 void | |
745 syms_of_dired () | 753 syms_of_dired () |
746 { | 754 { |
747 Qdirectory_files = intern ("directory-files"); | 755 Qdirectory_files = intern ("directory-files"); |
748 Qfile_name_completion = intern ("file-name-completion"); | 756 Qfile_name_completion = intern ("file-name-completion"); |
749 Qfile_name_all_completions = intern ("file-name-all-completions"); | 757 Qfile_name_all_completions = intern ("file-name-all-completions"); |