mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

EUDC: Fix checkdoc errors

Browse source 
* lisp/net/eudc.el (eudc--plist-member)
(eudc-format-inline-expansion-result): Fix checkdoc errors.
This commit is contained in:
Thomas Fitzsimmons 2025-06-30 22:39:37 -04:00
parent 9a7917f886
commit ab568bce0c
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/net/eudc.el
View file

@ -109,7 +109,9 @@
(version<= "3" (car (split-string bbdb-version))))) (version<= "3" (car (split-string bbdb-version)))))
(defun eudc--plist-member (plist prop &optional predicate) (defun eudc--plist-member (plist prop &optional predicate)
"Like `plist-member', but signal on invalid PLIST." "Like `plist-member', but signal on invalid PLIST.
Return t if PROP has a value specified in PLIST. The comparison with
PROP is done using PREDICATE, which defaults to `eq'."
(or (plistp plist) (or (plistp plist)
(signal 'wrong-type-argument `(plistp ,plist))) (signal 'wrong-type-argument `(plistp ,plist)))
(plist-member plist prop predicate)) (plist-member plist prop predicate))
@ -883,7 +885,8 @@ non-nil, collect results from all servers."
;;;###autoload ;;;###autoload
(defun eudc-format-inline-expansion-result (res query-attrs) (defun eudc-format-inline-expansion-result (res query-attrs)
"Format a query result according to `eudc-inline-expansion-format'." "Format a query result RES according to `eudc-inline-expansion-format'.
QUERY-ATTRS is a list of attributes to include in the expansion."
(cond (cond
;; format string ;; format string
((consp eudc-inline-expansion-format) ((consp eudc-inline-expansion-format)