; 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'.
2025-04-17 21:31:07 +02:00 · 2025-04-17 21:31:07 +02:00 · 2f67352d7a
commit 2f67352d7a
parent 58ff101380
1 changed files with 5 additions and 1 deletions
--- 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))))