Mercurial > hg > xemacs-beta

comparison src/minibuf.c @ 219:262b8bb4a523 r20-4b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b8
author cvs
date Mon, 13 Aug 2007 10:09:35 +0200
parents 8eaf7971accc
children 966663fcf606
comparison
equal deleted inserted replaced
218:c9f226976f56 219:262b8bb4a523
250 { 250 {
251 /* Ignore this element if it fails to match all the regexps. */ 251 /* Ignore this element if it fails to match all the regexps. */
252 if (!NILP (Vcompletion_regexp_list)) 252 if (!NILP (Vcompletion_regexp_list))
253 { 253 {
254 Lisp_Object regexps; 254 Lisp_Object regexps;
255 for (regexps = Vcompletion_regexp_list; 255 EXTERNAL_LIST_LOOP (regexps, Vcompletion_regexp_list)
256 CONSP (regexps);
257 regexps = XCDR (regexps))
258 { 256 {
259 Lisp_Object re = XCAR (regexps); 257 Lisp_Object re = XCAR (regexps);
260 if (STRINGP (re) 258 CHECK_STRING (re);
261 && (fast_string_match (re, nonreloc, reloc, offset, 259 if (fast_string_match (re, nonreloc, reloc, offset,
262 length, 0, ERROR_ME, 0) < 0)) 260 length, 0, ERROR_ME, 0) < 0)
263 return 1; 261 return 1;
264 } 262 }
265 } 263 }
266 return 0; 264 return 0;
267 } 265 }