* lisp/subr.el (plistp): Simplify (bug#47427).

2022-06-27 23:20:55 +03:00
parent 05fe0faed4
commit 7565dfd268
1 changed files with 2 additions and 3 deletions
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -4008,9 +4008,8 @@ Otherwise, return nil."

 (defun plistp (object)
  "Non-nil if and only if OBJECT is a valid plist."
-  (and (listp object)
-       (proper-list-p object)
-       (zerop (mod (length object) 2))))
+  (let ((len (proper-list-p object)))
+    (and len (zerop (% len 2)))))

 (defun macrop (object)
  "Non-nil if and only if OBJECT is a macro."