diff options
| author | Kim F. Storm <storm@cua.dk> | 2007-03-23 15:42:48 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2007-03-23 15:42:48 +0000 |
| commit | f813361dc33028ee85532c747555fed7f0dde392 (patch) | |
| tree | 5e510f1726a980d88b1bb7cedc128bd6cb90853c /src/intervals.c | |
| parent | be5ef8f0f316e5a05b2a362f97f685e662ae2599 (diff) | |
| download | emacs-f813361dc33028ee85532c747555fed7f0dde392.tar.gz | |
(merge_properties, intervals_equal):
Use Fplist_member instead of Fmemq to find properties.
Diffstat (limited to 'src/intervals.c')
| -rw-r--r-- | src/intervals.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/intervals.c b/src/intervals.c index 861cb24c598..6c640dc5cd2 100644 --- a/src/intervals.c +++ b/src/intervals.c @@ -125,7 +125,7 @@ merge_properties (source, target) while (CONSP (o)) { sym = XCAR (o); - val = Fmemq (sym, target->plist); + val = Fplist_member (sym, target->plist); if (NILP (val)) { @@ -168,7 +168,7 @@ intervals_equal (i0, i1) return 0; i0_sym = XCAR (i0_cdr); - i1_val = Fmemq (i0_sym, i1->plist); + i1_val = Fplist_member (i0_sym, i1->plist); /* i0 has something i1 doesn't. */ if (EQ (i1_val, Qnil)) @@ -2538,7 +2538,7 @@ set_intervals_multibyte_1 (i, multi_flag, start, start_byte, end, end_byte) temp = CHAR_TO_BYTE (left_end); /* If LEFT_END_BYTE is in the middle of a character, - adjust it and LEFT_END to a char boundary. */ + adjust it and LEFT_END to a char boundary. */ if (left_end_byte > temp) { left_end_byte = temp; @@ -2570,7 +2570,7 @@ set_intervals_multibyte_1 (i, multi_flag, start, start_byte, end, end_byte) right_start = BYTE_TO_CHAR (right_start_byte); /* If RIGHT_START_BYTE is in the middle of a character, - adjust it and RIGHT_START to a char boundary. */ + adjust it and RIGHT_START to a char boundary. */ temp = CHAR_TO_BYTE (right_start); if (right_start_byte < temp) |