branch: externals/relint
commit 681da220d4c80cb6e9486d796c4983ad7d797c23
Author: Mattias Engdegård <matti...@acm.org>
Commit: Mattias Engdegård <matti...@acm.org>
proper-list-p always available since we require Emacs 27
---
relint.el | 8 +-------
1 file changed, 1 insertion(+), 7 deletions(-)
diff --git a/relint.el b/relint.el
index c17c88bf0d..0214cfd8cf 100644
--- a/relint.el
+++ b/relint.el
@@ -724,12 +724,6 @@ into something that can be called safely."
(lambda (n list)
(cl-loop repeat n for x in list collect x))))
-(defalias 'relint--proper-list-p
- (if (fboundp 'proper-list-p)
- #'proper-list-p
- (lambda (x)
- (and (listp x) (ignore-errors (length x))))))
-
(defun relint--eval (form)
"Evaluate a form. Throw `relint-eval' `no-value' if something could
not be evaluated safely."
@@ -2052,7 +2046,7 @@ directly."
(let ((head (car form))
(args (cdr form)))
(cond
- ((not (relint--proper-list-p args))
+ ((not (proper-list-p args))
;; Dotted list: just recurse.
(let ((index 0))
(while (consp form)
