/[emacs]/emacs/src/dired.c
ViewVC logotype

Diff of /emacs/src/dired.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.91 by pj, Fri Nov 2 20:21:57 2001 UTC revision 1.92 by pj, Tue Nov 13 07:45:01 2001 UTC
# Line 332  directory_files_internal (directory, ful Line 332  directory_files_internal (directory, ful
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;
# Line 363  If NOSORT is non-nil, the list is not so Line 363  If NOSORT is non-nil, the list is not so
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;
# Line 399  If NOSORT is non-nil, the list is not so Line 400  If NOSORT is non-nil, the list is not so
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;
# Line 429  determined by the variable `completion-i Line 430  determined by the variable `completion-i
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;
# Line 787  file_name_completion_stat (dirname, dp, Line 788  file_name_completion_stat (dirname, dp,
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;
# Line 834  make_time (time) Line 835  make_time (time)
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];
# Line 937  If file does not exist, returns nil.") Line 938  If file does not exist, returns nil.")
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));
# Line 979  syms_of_dired () Line 980  syms_of_dired ()
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  }  }

Legend:
Removed from v.1.91  
changed lines
  Added in v.1.92

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26