Mercurial > hg > xemacs-beta

comparison src/search.c @ 2286:04bc9d2f42c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-20 19:18:55 by james] Mark all unused parameters as unused. Also eliminate some unneeded local variables.
author james
date Mon, 20 Sep 2004 19:20:08 +0000
parents 61855263cb07
children ba4677f54a05
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
156 POSIX is nonzero if we want full backtracking (POSIX style) 156 POSIX is nonzero if we want full backtracking (POSIX style)
157 for this pattern. 0 means backtrack only enough to get a valid match. */ 157 for this pattern. 0 means backtrack only enough to get a valid match. */
158 158
159 static int 159 static int
160 compile_pattern_1 (struct regexp_cache *cp, Lisp_Object pattern, 160 compile_pattern_1 (struct regexp_cache *cp, Lisp_Object pattern,
161 struct re_registers *regp, Lisp_Object translate, 161 struct re_registers *UNUSED (regp), Lisp_Object translate,
162 int posix, Error_Behavior errb) 162 int posix, Error_Behavior errb)
163 { 163 {
164 const char *val; 164 const char *val;
165 reg_syntax_t old; 165 reg_syntax_t old;
166 166
195 POSIX is nonzero if we want full backtracking (POSIX style) 195 POSIX is nonzero if we want full backtracking (POSIX style)
196 for this pattern. 0 means backtrack only enough to get a valid match. */ 196 for this pattern. 0 means backtrack only enough to get a valid match. */
197 197
198 struct re_pattern_buffer * 198 struct re_pattern_buffer *
199 compile_pattern (Lisp_Object pattern, struct re_registers *regp, 199 compile_pattern (Lisp_Object pattern, struct re_registers *regp,
200 Lisp_Object translate, Lisp_Object searchobj, 200 Lisp_Object translate, Lisp_Object UNUSED (searchobj),
201 struct buffer *searchbuf, int posix, Error_Behavior errb) 201 struct buffer *UNUSED (searchbuf), int posix,
202 Error_Behavior errb)
202 { 203 {
203 struct regexp_cache *cp, **cpp; 204 struct regexp_cache *cp, **cpp;
204 205
205 for (cpp = &searchbuf_head; ; cpp = &cp->next) 206 for (cpp = &searchbuf_head; ; cpp = &cp->next)
206 { 207 {
402 return looking_at_1 (regexp, decode_buffer (buffer, 0), 1); 403 return looking_at_1 (regexp, decode_buffer (buffer, 0), 1);
403 } 404 }
404 405
405 static Lisp_Object 406 static Lisp_Object
406 string_match_1 (Lisp_Object regexp, Lisp_Object string, Lisp_Object start, 407 string_match_1 (Lisp_Object regexp, Lisp_Object string, Lisp_Object start,
407 struct buffer *buf, int posix) 408 struct buffer *buf, int UNUSED (posix))
408 { 409 {
409 Bytecount val; 410 Bytecount val;
410 Charcount s; 411 Charcount s;
411 struct re_pattern_buffer *bufp; 412 struct re_pattern_buffer *bufp;
412 413
3083 DEFUN ("set-word-regexp", Fset_word_regexp, 1, 1, 0, /* 3084 DEFUN ("set-word-regexp", Fset_word_regexp, 1, 1, 0, /*
3084 Set the regexp to be used to match a word in regular-expression searching. 3085 Set the regexp to be used to match a word in regular-expression searching.
3085 #### Not yet implemented. Currently does nothing. 3086 #### Not yet implemented. Currently does nothing.
3086 #### Do not use this yet. Its calling interface is likely to change. 3087 #### Do not use this yet. Its calling interface is likely to change.
3087 */ 3088 */
3088 (regexp)) 3089 (UNUSED (regexp)))
3089 { 3090 {
3090 return Qnil; 3091 return Qnil;
3091 } 3092 }
3092 3093
3093 3094