Mercurial > hg > xemacs-beta

comparison src/dired.c @ 460:223736d75acb r21-2-45

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-45
author cvs
date Mon, 13 Aug 2007 11:43:24 +0200
parents 1ccc32a20af4
children ef4d2466a29c
comparison
equal deleted inserted replaced
459:9d4fd877b885 460:223736d75acb
31 #include "buffer.h" 31 #include "buffer.h"
32 #include "commands.h" 32 #include "commands.h"
33 #include "elhash.h" 33 #include "elhash.h"
34 #include "regex.h" 34 #include "regex.h"
35 #include "opaque.h" 35 #include "opaque.h"
36 #include "syntax.h"
36 37
37 Lisp_Object Vcompletion_ignored_extensions; 38 Lisp_Object Vcompletion_ignored_extensions;
38 Lisp_Object Qdirectory_files; 39 Lisp_Object Qdirectory_files;
39 Lisp_Object Qfile_name_completion; 40 Lisp_Object Qfile_name_completion;
40 Lisp_Object Qfile_name_all_completions; 41 Lisp_Object Qfile_name_all_completions;
120 NOTE: the above comment is old; previously, there was no 121 NOTE: the above comment is old; previously, there was no
121 unwind-protection in case of error, but now there is. */ 122 unwind-protection in case of error, but now there is. */
122 d = opendir ((char *) XSTRING_DATA (directory)); 123 d = opendir ((char *) XSTRING_DATA (directory));
123 if (!d) 124 if (!d)
124 report_file_error ("Opening directory", list1 (directory)); 125 report_file_error ("Opening directory", list1 (directory));
126
127 regex_match_object = Qt;
128 regex_emacs_buffer = current_buffer;
125 129
126 record_unwind_protect (close_directory_unwind, make_opaque_ptr ((void *)d)); 130 record_unwind_protect (close_directory_unwind, make_opaque_ptr ((void *)d));
127 131
128 /* Loop reading blocks */ 132 /* Loop reading blocks */
129 while (1) 133 while (1)