From 7565dfd268671c8d5388e8b9fe823367c206c131 Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Mon, 27 Jun 2022 23:20:55 +0300 Subject: [PATCH] * 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 69cff23cba8..4e4eac32d9d 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." -- 2.39.5