Tidy: (org-ql--plist-get*) Docstring

This commit is contained in:
Adam Porter 2022-12-25 17:51:00 -06:00
parent 36ff9854ce
commit 29533525c3

View file

@ -699,7 +699,8 @@ returns nil."
(user-error "Query aborted by user"))))) (user-error "Query aborted by user")))))
(defun org-ql--plist-get* (plist property) (defun org-ql--plist-get* (plist property)
"Return the value of PROPERTY in PLIST, or `not-found' if the property is missing." "Return the value of PROPERTY in PLIST, or `not-found'.
Returns `not-found' if the property is missing."
(if-let ((pair (plist-member plist property))) (if-let ((pair (plist-member plist property)))
(cadr pair) (cadr pair)
'not-found)) 'not-found))