[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 7565dfd268: * lisp/subr.el (plistp): Simplify (bug#47427).
From: |
Basil L. Contovounesios |
Subject: |
master 7565dfd268: * lisp/subr.el (plistp): Simplify (bug#47427). |
Date: |
Mon, 27 Jun 2022 16:26:32 -0400 (EDT) |
branch: master
commit 7565dfd268671c8d5388e8b9fe823367c206c131
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>
* lisp/subr.el (plistp): Simplify (bug#47427).
---
lisp/subr.el | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/lisp/subr.el b/lisp/subr.el
index 69cff23cba..4e4eac32d9 100644
--- 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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 7565dfd268: * lisp/subr.el (plistp): Simplify (bug#47427).,
Basil L. Contovounesios <=