Mercurial > emacs
changeset 10114:6f6db8f5b8a0
(internal_equal): Call compare_string_intervals.
(Fstring_equal): Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 04 Dec 1994 21:07:21 +0000 |
| parents | 9d72d79329c3 |
| children | e55ee438bd10 |
| files | src/fns.c |
| diffstat | 1 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fns.c Sun Dec 04 21:07:03 1994 +0000 +++ b/src/fns.c Sun Dec 04 21:07:21 1994 +0000 @@ -127,7 +127,7 @@ DEFUN ("string-equal", Fstring_equal, Sstring_equal, 2, 2, 0, "T if two strings have identical contents.\n\ -Case is significant.\n\ +Case is significant, but text properties are ignored.\n\ Symbols are also allowed; their print names are used instead.") (s1, s2) register Lisp_Object s1, s2; @@ -930,6 +930,13 @@ return 0; if (bcmp (XSTRING (o1)->data, XSTRING (o2)->data, XSTRING (o1)->size)) return 0; +#ifdef USE_TEXT_PROPERTIES + /* If the strings have intervals, verify they match; + if not, they are unequal. */ + if ((XSTRING (o1)->intervals != 0 || XSTRING (o2)->intervals != 0) + && ! compare_string_intervals (o1, o2)) + return 0; +#endif return 1; } return 0;