From: Eshel Yaron <me@eshelyaron.com>
Date: Thu, 17 Apr 2025 19:31:07 +0000 (+0200)
Subject: (auth-source-search): Avoid obsolete EIEIO convention
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ef9b3173779f33d67d203dc2e1eabbcc2b6a280d;p=emacs.git

(auth-source-search): Avoid obsolete EIEIO convention
---

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index cb866e1faf1..e8b4d5d3b8c 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))))