Mercurial > emacs
comparison src/dired.c @ 25645:a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
author | Ken Raeburn <raeburn@raeburn.org> |
---|---|
date | Sun, 12 Sep 1999 05:07:01 +0000 |
parents | 03f530e858df |
children | b7aa6ac26872 |
comparison
equal
deleted
inserted
replaced
25644:2ae0f7963ccc | 25645:a14111a2a100 |
---|---|
484 /* Compare extensions-to-be-ignored against end of this file name */ | 484 /* Compare extensions-to-be-ignored against end of this file name */ |
485 /* if name is not an exact match against specified string */ | 485 /* if name is not an exact match against specified string */ |
486 if (!passcount && len > XSTRING (encoded_file)->size) | 486 if (!passcount && len > XSTRING (encoded_file)->size) |
487 /* and exit this for loop if a match is found */ | 487 /* and exit this for loop if a match is found */ |
488 for (tem = Vcompletion_ignored_extensions; | 488 for (tem = Vcompletion_ignored_extensions; |
489 CONSP (tem); tem = XCONS (tem)->cdr) | 489 CONSP (tem); tem = XCDR (tem)) |
490 { | 490 { |
491 elt = XCONS (tem)->car; | 491 elt = XCAR (tem); |
492 if (!STRINGP (elt)) continue; | 492 if (!STRINGP (elt)) continue; |
493 skip = len - XSTRING (elt)->size; | 493 skip = len - XSTRING (elt)->size; |
494 if (skip < 0) continue; | 494 if (skip < 0) continue; |
495 | 495 |
496 if (0 <= scmp (dp->d_name + skip, | 496 if (0 <= scmp (dp->d_name + skip, |
512 Lisp_Object zero; | 512 Lisp_Object zero; |
513 XSETFASTINT (zero, 0); | 513 XSETFASTINT (zero, 0); |
514 | 514 |
515 /* Ignore this element if it fails to match all the regexps. */ | 515 /* Ignore this element if it fails to match all the regexps. */ |
516 for (regexps = Vcompletion_regexp_list; CONSP (regexps); | 516 for (regexps = Vcompletion_regexp_list; CONSP (regexps); |
517 regexps = XCONS (regexps)->cdr) | 517 regexps = XCDR (regexps)) |
518 { | 518 { |
519 tem = Fstring_match (XCONS (regexps)->car, elt, zero); | 519 tem = Fstring_match (XCAR (regexps), elt, zero); |
520 if (NILP (tem)) | 520 if (NILP (tem)) |
521 break; | 521 break; |
522 } | 522 } |
523 if (CONSP (regexps)) | 523 if (CONSP (regexps)) |
524 continue; | 524 continue; |