diff options
author | Glenn Morris <[email protected]> | 2008-02-11 00:49:15 +0000 |
---|---|---|
committer | Glenn Morris <[email protected]> | 2008-02-11 00:49:15 +0000 |
commit | 46c0aa175c69803eb8eca4cba59e214f1bd0b150 (patch) | |
tree | 2a92bac2b4979001a8d753ebb41e1f5cc5c33b25 /doc/lispref | |
parent | ae845655a2336cf1f1c4bafd6da7b43238443904 (diff) |
Lawrence Mitchell <wence at gmx.li> (tiny change)
(Equality Predicates): Add defun for equal-including-properties.
Diffstat (limited to 'doc/lispref')
-rw-r--r-- | doc/lispref/objects.texi | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/doc/lispref/objects.texi b/doc/lispref/objects.texi index b4f7a02232..8181a66d48 100644 --- a/doc/lispref/objects.texi +++ b/doc/lispref/objects.texi @@ -2039,6 +2039,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 |