diff options
author | Karl Heuer <kwzh@gnu.org> | 1994-10-19 04:51:07 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1994-10-19 04:51:07 +0000 |
commit | 7ba34189585e87f303eab072ec38eef8de0c22f7 (patch) | |
tree | dc8e5e99823993dc8eb0d76ead219f6a2a72c6cd /src/dired.c | |
parent | 409e04ba8c6afe6e3e1231dbe592b8068204891b (diff) | |
download | emacs-7ba34189585e87f303eab072ec38eef8de0c22f7.tar.gz |
(Fdirectory_files): Use the new calling convention for compile_pattern.
Diffstat (limited to 'src/dired.c')
-rw-r--r-- | src/dired.c | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/src/dired.c b/src/dired.c index 1bad7a42678..b8ba01b5edd 100644 --- a/src/dired.c +++ b/src/dired.c @@ -80,8 +80,8 @@ extern struct direct *readdir (); #include "regex.h" -/* A search buffer, with a fastmap allocated and ready to go. */ -extern struct re_pattern_buffer searchbuf; +/* Returns a search buffer, with a fastmap allocated and ready to go. */ +extern struct re_pattern_buffer *compile_pattern (); #define min(a, b) ((a) < (b) ? (a) : (b)) @@ -116,6 +116,7 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\ int length; Lisp_Object list, name, dirfilename; Lisp_Object handler; + struct re_pattern_buffer *bufp; /* If the file name has special constructs in it, call the corresponding file handler. */ @@ -154,14 +155,14 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\ catching and signalling our own errors, we just call compile_pattern to do the work for us. */ #ifdef VMS - compile_pattern (match, &searchbuf, 0, - buffer_defaults.downcase_table->contents); + bufp = compile_pattern (match, 0, + buffer_defaults.downcase_table->contents); #else - compile_pattern (match, &searchbuf, 0, 0); + bufp = compile_pattern (match, 0, 0); #endif } - /* Now searchbuf is the compiled form of MATCH; don't call anything + /* Now *bufp is the compiled form of MATCH; don't call anything which might compile a new regexp until we're done with the loop! */ /* Do this opendir after anything which might signal an error; if @@ -186,7 +187,7 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\ if (DIRENTRY_NONEMPTY (dp)) { if (NILP (match) - || (0 <= re_search (&searchbuf, dp->d_name, len, 0, len, 0))) + || (0 <= re_search (bufp, dp->d_name, len, 0, len, 0))) { if (!NILP (full)) { |