mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

Compare the values of text properties using EQ, not Fequal.

Browse Source 
* intervals.c (intervals_equal): Call EQ, not Fequal.
	* textprop.c (interval_has_all_properties, add_properties): Same.
This commit is contained in:
Jim Blandy 1993-07-06 02:23:22 +00:00
parent 657070acda
commit 734c51b2dd
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/intervals.c
View File

@ -159,7 +159,7 @@ intervals_equal (i0, i1)
/* i0 and i1 both have sym, but it has different values in each */
i0_cdr = Fcdr (i0_cdr);
if (NILP (Fequal (i1_val, Fcar (i0_cdr))))
if (! EQ (i1_val, Fcar (i0_cdr)))
return 0;
i0_cdr = Fcdr (i0_cdr);

5
src/textprop.c
View File

@ -209,8 +209,7 @@ interval_has_all_properties (plist, i)
{
/* Found the same property on both lists. If the
values are unequal, return zero. */
if (! EQ (Fequal (Fcar (Fcdr (tail1)), Fcar (Fcdr (tail2))),
Qt))
if (! EQ (Fcar (Fcdr (tail1)), Fcar (Fcdr (tail2))))
return 0;
/* Property has same value on both lists; go to next one. */
@ -343,7 +342,7 @@ add_properties (plist, i, object)
/* The properties have the same value on both lists.
Continue to the next property. */
if (!NILP (Fequal (val1, Fcar (this_cdr))))
if (EQ (val1, Fcar (this_cdr)))
break;
/* Record this change in the buffer, for undo purposes. */