From 2f67352d7ae708f8a3b6c4883eb4854e5e382d59 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Thu, 17 Apr 2025 21:31:07 +0200 Subject: [PATCH] ; 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))))