procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Basil L. Contovounesios 2022-06-27 23:20:55 +03:00
parent 05fe0faed4
commit 7565dfd268
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/subr.el
View file

@ -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."