mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

; Fix last change in auth-source.el

Browse source 
* lisp/auth-source.el (auth-source-search-spec): Fix thinko.
(auth-source-secrets-search): Fix call of
`auth-source-secrets-listify-pattern'.
This commit is contained in:
Michael Albinus 2025-10-06 16:32:12 +02:00
parent 1434bc97dc
commit 96358a044c
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/auth-source.el
View file

@ -405,12 +405,12 @@ A fallback backend is added to ensure, that at least `read-passwd' is called."
(defmacro auth-source-search-spec (spec)
"Build a search spec without the ignored keys.
If a search key is nil or t (match anything), skip it."
`(seq-keep
`(apply #'append (mapcar
(lambda (k)
(and-let* ((v (plist-get ,spec k))
((not (eq t v)))
((cons k (auth-source-ensure-strings v))))))
(auth-source-search-keys spec)))
((list k (auth-source-ensure-strings v))))))
(auth-source-search-keys ,spec))))
(defcustom auth-source-ignore-non-existing-file t
"If set non-nil, file-based backends are ignored if the file does not exist.
@ -1804,8 +1804,7 @@ authentication tokens:
(items
(cl-loop
for search-spec in
(apply #'auth-source-secrets-listify-pattern
(auth-source-search-spec spec))
(auth-source-secrets-listify-pattern (auth-source-search-spec spec))
nconc
(cl-loop for item in (apply #'secrets-search-items coll search-spec)
unless (and (stringp label)