diff options
| author | Basil L. Contovounesios <contovob@tcd.ie> | 2022-10-22 20:25:54 +0300 |
|---|---|---|
| committer | Basil L. Contovounesios <contovob@tcd.ie> | 2022-10-23 00:44:52 +0300 |
| commit | 9db7b11cf7fa5d6cf624a467f966a14b347e4429 (patch) | |
| tree | 3302ade9cedcaac1876c2d372a3d7a963423c028 /lisp/net/eudc.el | |
| parent | e25a108b09d12502527620ec379a0950cb577311 (diff) | |
| download | emacs-9db7b11cf7fa5d6cf624a467f966a14b347e4429.tar.gz | |
Improve error reporting of EUDC plist functions
* lisp/net/eudc.el (eudc--plist-member): Signal a more
informative wrong-type-argument instead of a generic error
(bug#58531#19, bug#58720).
* test/lisp/net/eudc-tests.el (eudc--plist-member)
(eudc-plist-member, eudc-plist-get, eudc-lax-plist-get):
Update tests accordingly.
Diffstat (limited to 'lisp/net/eudc.el')
| -rw-r--r-- | lisp/net/eudc.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el index 0283b045745..5f9e78fc7f3 100644 --- a/lisp/net/eudc.el +++ b/lisp/net/eudc.el @@ -108,9 +108,8 @@ (defun eudc--plist-member (plist prop &optional predicate) "Like `plist-member', but signal on invalid PLIST." - ;; Could also use `plistp', but that would change the error. - (or (zerop (% (length plist) 2)) - (error "Malformed plist")) + (or (plistp plist) + (signal 'wrong-type-argument `(plistp ,plist))) (plist-member plist prop predicate)) (defun eudc-plist-member (plist prop) |