# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1202690955 0
# Node ID 4e73f4d4b3d10a811ef5b6bca67f2dab2feeea73
# Parent  a746add2f99d256776a2571856cf34a33ec2121d
Lawrence Mitchell <wence at gmx.li>  (tiny change)

(Equality Predicates): Add defun for equal-including-properties.

diff -r a746add2f99d -r 4e73f4d4b3d1 doc/lispref/objects.texi
--- a/doc/lispref/objects.texi	Mon Feb 11 00:30:48 2008 +0000
+++ b/doc/lispref/objects.texi	Mon Feb 11 00:49:15 2008 +0000
@@ -2039,6 +2039,23 @@
 Because of this recursive method, circular lists may therefore cause
 infinite recursion (leading to an error).
 
+@defun equal-including-properties object1 object2
+This function behaves like @code{equal} in all cases but also requires
+that for two strings to be equal, they have the same text properties.
+
+@example
+@group
+(equal "asdf" (propertize "asdf" '(asdf t)))
+     @result{} t
+@end group
+@group
+(equal-including-properties "asdf"
+                            (propertize "asdf" '(asdf t)))
+     @result{} nil
+@end group
+@end example
+@end defun
+
 @ignore
    arch-tag: 9711a66e-4749-4265-9e8c-972d55b67096
 @end ignore