master 2f67352d7ae: ; Fix warnings in 'auth-source-search' (bug#77612)

[Eshel Yaron]

branch: master
commit 2f67352d7ae708f8a3b6c4883eb4854e5e382d59
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    ; Fix warnings in 'auth-source-search' (bug#77612)
    
    * lisp/auth-source.el (auth-source-search): When calling
    'slot-value', specify slots by name, not by ':initarg'.
---
 lisp/auth-source.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 1d039d8b0d1..946debca95e 100644
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -708,7 +708,11 @@ must call it to obtain the actual value."
           (condition-case nil
               (unless (auth-source-search-collection
                        (plist-get spec key)
-                       (slot-value backend key))
+                       (slot-value
+                        backend
+                        (if (keywordp key)
+                            (intern-soft (substring (symbol-name key) 1))
+                          key)))
                 (setq filtered-backends (delq backend filtered-backends))
                 (cl-return))
             (invalid-slot-name nil))))