Mercurial > emacs

comparison src/editfns.c @ 30677:9193f208ef24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(find_field): Use EQ, not ==, to compare lisp objects.
author Ken Raeburn <raeburn@raeburn.org>
date Tue, 08 Aug 2000 14:38:09 +0000
parents 438ad5366a03
children 35428eaf59e3
comparison
equal deleted inserted replaced
30676:13034314ea4c 30677:9193f208ef24
438 the beginning of the following field. */ 438 the beginning of the following field. */
439 *beg = XFASTINT (pos); 439 *beg = XFASTINT (pos);
440 else 440 else
441 /* Find the previous field boundary. */ 441 /* Find the previous field boundary. */
442 { 442 {
443 if (!NILP (merge_at_boundary) && before_field == Qboundary) 443 if (!NILP (merge_at_boundary) && EQ (before_field, Qboundary))
444 /* Skip a `boundary' field. */ 444 /* Skip a `boundary' field. */
445 pos = Fprevious_single_char_property_change (pos, Qfield, Qnil,Qnil); 445 pos = Fprevious_single_char_property_change (pos, Qfield, Qnil,Qnil);
446 446
447 pos = Fprevious_single_char_property_change (pos, Qfield, Qnil, Qnil); 447 pos = Fprevious_single_char_property_change (pos, Qfield, Qnil, Qnil);
448 *beg = NILP (pos) ? BEGV : XFASTINT (pos); 448 *beg = NILP (pos) ? BEGV : XFASTINT (pos);
454 the end of the previous field. */ 454 the end of the previous field. */
455 *end = XFASTINT (pos); 455 *end = XFASTINT (pos);
456 else 456 else
457 /* Find the next field boundary. */ 457 /* Find the next field boundary. */
458 { 458 {
459 if (!NILP (merge_at_boundary) && after_field == Qboundary) 459 if (!NILP (merge_at_boundary) && EQ (after_field, Qboundary))
460 /* Skip a `boundary' field. */ 460 /* Skip a `boundary' field. */
461 pos = Fnext_single_char_property_change (pos, Qfield, Qnil, Qnil); 461 pos = Fnext_single_char_property_change (pos, Qfield, Qnil, Qnil);
462 462
463 pos = Fnext_single_char_property_change (pos, Qfield, Qnil, Qnil); 463 pos = Fnext_single_char_property_change (pos, Qfield, Qnil, Qnil);
464 *end = NILP (pos) ? ZV : XFASTINT (pos); 464 *end = NILP (pos) ? ZV : XFASTINT (pos);