Mercurial > emacs
comparison src/dired.c @ 14036:621a575db6f7
Comment fixes.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Fri, 05 Jan 1996 10:03:17 +0000 |
parents | 93b67f07b194 |
children | afef050ad4e6 |
comparison
equal
deleted
inserted
replaced
14035:09cb73d0ec41 | 14036:621a575db6f7 |
---|---|
150 if (!NILP (match)) | 150 if (!NILP (match)) |
151 { | 151 { |
152 CHECK_STRING (match, 3); | 152 CHECK_STRING (match, 3); |
153 | 153 |
154 /* MATCH might be a flawed regular expression. Rather than | 154 /* MATCH might be a flawed regular expression. Rather than |
155 catching and signalling our own errors, we just call | 155 catching and signaling our own errors, we just call |
156 compile_pattern to do the work for us. */ | 156 compile_pattern to do the work for us. */ |
157 #ifdef VMS | 157 #ifdef VMS |
158 bufp = compile_pattern (match, 0, | 158 bufp = compile_pattern (match, 0, |
159 buffer_defaults.downcase_table->contents, 0); | 159 buffer_defaults.downcase_table->contents, 0); |
160 #else | 160 #else |
164 | 164 |
165 /* Now *bufp is the compiled form of MATCH; don't call anything | 165 /* Now *bufp is the compiled form of MATCH; don't call anything |
166 which might compile a new regexp until we're done with the loop! */ | 166 which might compile a new regexp until we're done with the loop! */ |
167 | 167 |
168 /* Do this opendir after anything which might signal an error; if | 168 /* Do this opendir after anything which might signal an error; if |
169 an error is signalled while the directory stream is open, we | 169 an error is signaled while the directory stream is open, we |
170 have to make sure it gets closed, and setting up an | 170 have to make sure it gets closed, and setting up an |
171 unwind_protect to do so would be a pain. */ | 171 unwind_protect to do so would be a pain. */ |
172 d = opendir (XSTRING (dirfilename)->data); | 172 d = opendir (XSTRING (dirfilename)->data); |
173 if (! d) | 173 if (! d) |
174 report_file_error ("Opening directory", Fcons (dirname, Qnil)); | 174 report_file_error ("Opening directory", Fcons (dirname, Qnil)); |