332 |
|
|
333 |
|
|
334 |
DEFUN ("directory-files", Fdirectory_files, Sdirectory_files, 1, 4, 0, |
DEFUN ("directory-files", Fdirectory_files, Sdirectory_files, 1, 4, 0, |
335 |
"Return a list of names of files in DIRECTORY.\n\ |
doc: /* Return a list of names of files in DIRECTORY. |
336 |
There are three optional arguments:\n\ |
There are three optional arguments: |
337 |
If FULL is non-nil, return absolute file names. Otherwise return names\n\ |
If FULL is non-nil, return absolute file names. Otherwise return names |
338 |
that are relative to the specified directory.\n\ |
that are relative to the specified directory. |
339 |
If MATCH is non-nil, mention only file names that match the regexp MATCH.\n\ |
If MATCH is non-nil, mention only file names that match the regexp MATCH. |
340 |
If NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\ |
If NOSORT is non-nil, the list is not sorted--its order is unpredictable. |
341 |
NOSORT is useful if you plan to sort the result yourself.") |
NOSORT is useful if you plan to sort the result yourself. */) |
342 |
(directory, full, match, nosort) |
(directory, full, match, nosort) |
343 |
Lisp_Object directory, full, match, nosort; |
Lisp_Object directory, full, match, nosort; |
344 |
{ |
{ |
345 |
Lisp_Object handler; |
Lisp_Object handler; |
363 |
return directory_files_internal (directory, full, match, nosort, 0); |
return directory_files_internal (directory, full, match, nosort, 0); |
364 |
} |
} |
365 |
|
|
366 |
DEFUN ("directory-files-and-attributes", Fdirectory_files_and_attributes, Sdirectory_files_and_attributes, 1, 4, 0, |
DEFUN ("directory-files-and-attributes", Fdirectory_files_and_attributes, |
367 |
"Return a list of names of files and their attributes in DIRECTORY.\n\ |
Sdirectory_files_and_attributes, 1, 4, 0, |
368 |
There are three optional arguments:\n\ |
doc: /* Return a list of names of files and their attributes in DIRECTORY. |
369 |
If FULL is non-nil, return absolute file names. Otherwise return names\n\ |
There are three optional arguments: |
370 |
that are relative to the specified directory.\n\ |
If FULL is non-nil, return absolute file names. Otherwise return names |
371 |
If MATCH is non-nil, mention only file names that match the regexp MATCH.\n\ |
that are relative to the specified directory. |
372 |
If NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\ |
If MATCH is non-nil, mention only file names that match the regexp MATCH. |
373 |
NOSORT is useful if you plan to sort the result yourself.") |
If NOSORT is non-nil, the list is not sorted--its order is unpredictable. |
374 |
(directory, full, match, nosort) |
NOSORT is useful if you plan to sort the result yourself. */) |
375 |
|
(directory, full, match, nosort) |
376 |
Lisp_Object directory, full, match, nosort; |
Lisp_Object directory, full, match, nosort; |
377 |
{ |
{ |
378 |
Lisp_Object handler; |
Lisp_Object handler; |
400 |
Lisp_Object file_name_completion (); |
Lisp_Object file_name_completion (); |
401 |
|
|
402 |
DEFUN ("file-name-completion", Ffile_name_completion, Sfile_name_completion, |
DEFUN ("file-name-completion", Ffile_name_completion, Sfile_name_completion, |
403 |
2, 2, 0, |
2, 2, 0, |
404 |
"Complete file name FILE in directory DIRECTORY.\n\ |
doc: /* Complete file name FILE in directory DIRECTORY. |
405 |
Returns the longest string\n\ |
Returns the longest string |
406 |
common to all file names in DIRECTORY that start with FILE.\n\ |
common to all file names in DIRECTORY that start with FILE. |
407 |
If there is only one and FILE matches it exactly, returns t.\n\ |
If there is only one and FILE matches it exactly, returns t. |
408 |
Returns nil if DIR contains no name starting with FILE.\n\ |
Returns nil if DIR contains no name starting with FILE. |
409 |
\n\ |
|
410 |
This function ignores some of the possible completions as\n\ |
This function ignores some of the possible completions as |
411 |
determined by the variable `completion-ignored-extensions', which see.") |
determined by the variable `completion-ignored-extensions', which see. */) |
412 |
(file, directory) |
(file, directory) |
413 |
Lisp_Object file, directory; |
Lisp_Object file, directory; |
414 |
{ |
{ |
415 |
Lisp_Object handler; |
Lisp_Object handler; |
430 |
} |
} |
431 |
|
|
432 |
DEFUN ("file-name-all-completions", Ffile_name_all_completions, |
DEFUN ("file-name-all-completions", Ffile_name_all_completions, |
433 |
Sfile_name_all_completions, 2, 2, 0, |
Sfile_name_all_completions, 2, 2, 0, |
434 |
"Return a list of all completions of file name FILE in directory DIRECTORY.\n\ |
doc: /* Return a list of all completions of file name FILE in directory DIRECTORY. |
435 |
These are all file names in directory DIRECTORY which begin with FILE.") |
These are all file names in directory DIRECTORY which begin with FILE. */) |
436 |
(file, directory) |
(file, directory) |
437 |
Lisp_Object file, directory; |
Lisp_Object file, directory; |
438 |
{ |
{ |
439 |
Lisp_Object handler; |
Lisp_Object handler; |
788 |
#ifdef VMS |
#ifdef VMS |
789 |
|
|
790 |
DEFUN ("file-name-all-versions", Ffile_name_all_versions, |
DEFUN ("file-name-all-versions", Ffile_name_all_versions, |
791 |
Sfile_name_all_versions, 2, 2, 0, |
Sfile_name_all_versions, 2, 2, 0, |
792 |
"Return a list of all versions of file name FILE in directory DIRECTORY.") |
doc: /* Return a list of all versions of file name FILE in directory DIRECTORY. */) |
793 |
(file, directory) |
(file, directory) |
794 |
Lisp_Object file, directory; |
Lisp_Object file, directory; |
795 |
{ |
{ |
796 |
return file_name_completion (file, directory, 1, 1); |
return file_name_completion (file, directory, 1, 1); |
797 |
} |
} |
798 |
|
|
799 |
DEFUN ("file-version-limit", Ffile_version_limit, Sfile_version_limit, 1, 1, 0, |
DEFUN ("file-version-limit", Ffile_version_limit, Sfile_version_limit, 1, 1, 0, |
800 |
"Return the maximum number of versions allowed for FILE.\n\ |
doc: /* Return the maximum number of versions allowed for FILE. |
801 |
Returns nil if the file cannot be opened or if there is no version limit.") |
Returns nil if the file cannot be opened or if there is no version limit. */) |
802 |
(filename) |
(filename) |
803 |
Lisp_Object filename; |
Lisp_Object filename; |
804 |
{ |
{ |
805 |
Lisp_Object retval; |
Lisp_Object retval; |
835 |
} |
} |
836 |
|
|
837 |
DEFUN ("file-attributes", Ffile_attributes, Sfile_attributes, 1, 1, 0, |
DEFUN ("file-attributes", Ffile_attributes, Sfile_attributes, 1, 1, 0, |
838 |
"Return a list of attributes of file FILENAME.\n\ |
doc: /* Return a list of attributes of file FILENAME. |
839 |
Value is nil if specified file cannot be opened.\n\ |
Value is nil if specified file cannot be opened. |
840 |
Otherwise, list elements are:\n\ |
Otherwise, list elements are: |
841 |
0. t for directory, string (name linked to) for symbolic link, or nil.\n\ |
0. t for directory, string (name linked to) for symbolic link, or nil. |
842 |
1. Number of links to file.\n\ |
1. Number of links to file. |
843 |
2. File uid.\n\ |
2. File uid. |
844 |
3. File gid.\n\ |
3. File gid. |
845 |
4. Last access time, as a list of two integers.\n\ |
4. Last access time, as a list of two integers. |
846 |
First integer has high-order 16 bits of time, second has low 16 bits.\n\ |
First integer has high-order 16 bits of time, second has low 16 bits. |
847 |
5. Last modification time, likewise.\n\ |
5. Last modification time, likewise. |
848 |
6. Last status change time, likewise.\n\ |
6. Last status change time, likewise. |
849 |
7. Size in bytes.\n\ |
7. Size in bytes. |
850 |
This is a floating point number if the size is too large for an integer.\n\ |
This is a floating point number if the size is too large for an integer. |
851 |
8. File modes, as a string of ten letters or dashes as in ls -l.\n\ |
8. File modes, as a string of ten letters or dashes as in ls -l. |
852 |
9. t iff file's gid would change if file were deleted and recreated.\n\ |
9. t iff file's gid would change if file were deleted and recreated. |
853 |
10. inode number. If inode number is larger than the Emacs integer,\n\ |
10. inode number. If inode number is larger than the Emacs integer, |
854 |
this is a cons cell containing two integers: first the high part,\n\ |
this is a cons cell containing two integers: first the high part, |
855 |
then the low 16 bits.\n\ |
then the low 16 bits. |
856 |
11. Device number. If it is larger than the Emacs integer, this is\n\ |
11. Device number. If it is larger than the Emacs integer, this is |
857 |
a cons cell, similar to the inode number.\n\ |
a cons cell, similar to the inode number. |
858 |
\n\ |
|
859 |
If file does not exist, returns nil.") |
If file does not exist, returns nil. */) |
860 |
(filename) |
(filename) |
861 |
Lisp_Object filename; |
Lisp_Object filename; |
862 |
{ |
{ |
863 |
Lisp_Object values[12]; |
Lisp_Object values[12]; |
938 |
} |
} |
939 |
|
|
940 |
DEFUN ("file-attributes-lessp", Ffile_attributes_lessp, Sfile_attributes_lessp, 2, 2, 0, |
DEFUN ("file-attributes-lessp", Ffile_attributes_lessp, Sfile_attributes_lessp, 2, 2, 0, |
941 |
"Return t if first arg file attributes list is less than second.\n\ |
doc: /* Return t if first arg file attributes list is less than second. |
942 |
Comparison is in lexicographic order and case is significant.") |
Comparison is in lexicographic order and case is significant. */) |
943 |
(f1, f2) |
(f1, f2) |
944 |
Lisp_Object f1, f2; |
Lisp_Object f1, f2; |
945 |
{ |
{ |
946 |
return Fstring_lessp (Fcar (f1), Fcar (f2)); |
return Fstring_lessp (Fcar (f1), Fcar (f2)); |
980 |
#endif /* VMS */ |
#endif /* VMS */ |
981 |
|
|
982 |
DEFVAR_LISP ("completion-ignored-extensions", &Vcompletion_ignored_extensions, |
DEFVAR_LISP ("completion-ignored-extensions", &Vcompletion_ignored_extensions, |
983 |
"*Completion ignores filenames ending in any string in this list.\n\ |
doc: /* *Completion ignores filenames ending in any string in this list. |
984 |
Directories are ignored if they match any string in this list which\n\ |
Directories are ignored if they match any string in this list which |
985 |
ends in a slash.\n\ |
ends in a slash. |
986 |
This variable does not affect lists of possible completions,\n\ |
This variable does not affect lists of possible completions, |
987 |
but does affect the commands that actually do completions."); |
but does affect the commands that actually do completions. */); |
988 |
Vcompletion_ignored_extensions = Qnil; |
Vcompletion_ignored_extensions = Qnil; |
989 |
} |
} |