From 6bafe8bc27dd3e82849a58be69ca2aba4b666e25 Mon Sep 17 00:00:00 2001
From: Glenn Morris <rgm@gnu.org>
Date: Mon, 11 Feb 2008 00:49:28 +0000
Subject: [PATCH] Lawrence Mitchell <wence at gmx.li>  (tiny change)

(Equality Predicates): Add defun for equal-including-properties.
---
 lispref/objects.texi | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/lispref/objects.texi b/lispref/objects.texi
index 9aa8ba24712..95a858c3cc3 100644
--- a/lispref/objects.texi
+++ b/lispref/objects.texi
@@ -2032,6 +2032,23 @@ returns @code{t} if and only if both the expressions below return
 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
-- 
2.39.5