fix(cli): void-variable test error on Emacs 27.x

map.el integration for pcase wasn't introduced until 28.1; it was
premature to use it while we support 27.x.
This commit is contained in:
Henrik Lissner 2022-08-18 16:14:06 +02:00
parent 050624d475
commit a7e147088c
No known key found for this signature in database
GPG Key ID: B60957CA074D39A3

View File

@ -548,14 +548,14 @@ Throws `doom-cli-invalid-option-error' for illegal values."
errors)
(catch 'done
(dolist (type types)
(pcase-let
(((map :test :read :error)
(if (or (symbolp type)
(and (stringp type)
(string-match-p "^[A-Z0-9-_]+$" type)))
(cdr (assq (if (symbolp type) type (intern (downcase type)))
doom-cli-option-arg-types))
(list 'str :test #'stringp))))
;; REVIEW Use pcase-let + map.el when 27.x support is dropped
(cl-destructuring-bind (&key test read error &allow-other-keys)
(if (or (symbolp type)
(and (stringp type)
(string-match-p "^[A-Z0-9-_]+$" type)))
(cdr (assq (if (symbolp type) type (intern (downcase type)))
doom-cli-option-arg-types))
(list 'str :test #'stringp))
(condition-case-unless-debug e
(or (and (or (null test)
(if (stringp test)