branch: externals/compat
commit 47475cacfaa3445ec96f5bd0fbef7d3ffdac0d6a
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
proper-list-p: Use simpler definition from org-compat
---
compat-27.el | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/compat-27.el b/compat-27.el
index 80684e1e46..43cfabbfb5 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -34,10 +34,7 @@ A proper list is neither circular nor dotted (i.e., its last
cdr
is nil)."
:min-version "26.1"
:max-version "26.3"
- (condition-case nil
- (and (listp object) (length object)) ;; Throws a signal
- (wrong-type-argument nil)
- (circular-list nil)))
+ (and (listp object) (ignore-errors (length object))))
(compat-defun proper-list-p (object) ;; <OK>
"Return OBJECT's length if it is a proper list, nil otherwise.
