diff options
author | Jim Blandy <jimb@redhat.com> | 1992-07-22 16:15:36 +0000 |
---|---|---|
committer | Jim Blandy <jimb@redhat.com> | 1992-07-22 16:15:36 +0000 |
commit | 8efff4e8e45eaef42bdc147a0193c7488629bed8 (patch) | |
tree | 6b2a70f635ff9e32cc3eecf410f321317fada3ca /src/dired.c | |
parent | 67f2ce7f106c0e82865fc82763fc16434fccd83b (diff) | |
download | emacs-8efff4e8e45eaef42bdc147a0193c7488629bed8.tar.gz |
entered into RCS
Diffstat (limited to 'src/dired.c')
-rw-r--r-- | src/dired.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/dired.c b/src/dired.c index e43620fe0fe..3beb9d1d055 100644 --- a/src/dired.c +++ b/src/dired.c @@ -68,6 +68,7 @@ Lisp_Object Qcompletion_ignore_case; Lisp_Object Qdirectory_files; Lisp_Object Qfile_name_completion; Lisp_Object Qfile_name_all_completions; +Lisp_Object Qfile_attributes; DEFUN ("directory-files", Fdirectory_files, Sdirectory_files, 1, 4, 0, "Return a list of names of files in DIRECTORY.\n\ @@ -86,7 +87,7 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\ /* If the file name has special constructs in it, call the corresponding file handler. */ - handler = find_file_handler (filename); + handler = find_file_handler (dirname); if (!NILP (handler)) { Lisp_Object args[6]; @@ -190,7 +191,7 @@ Returns nil if DIR contains no name starting with FILE.") /* If the file name has special constructs in it, call the corresponding file handler. */ - handler = find_file_handler (filename); + handler = find_file_handler (dirname); if (!NILP (handler)) return call3 (handler, Qfile_name_completion, file, dirname); @@ -208,7 +209,7 @@ These are all file names in directory DIR which begin with FILE.") /* If the file name has special constructs in it, call the corresponding file handler. */ - handler = find_file_handler (filename); + handler = find_file_handler (dirname); if (!NILP (handler)) return call3 (handler, Qfile_name_all_completions, file, dirname); @@ -505,6 +506,7 @@ syms_of_dired () Qdirectory_files = intern ("directory-files"); Qfile_name_completion = intern ("file-name-completion"); Qfile_name_all_completions = intern ("file-name-all-completions"); + Qfile_attributes = intern ("file-attributes"); defsubr (&Sdirectory_files); defsubr (&Sfile_name_completion); |