From 1e5760ed786667113d4e144504ca7a981d25cf37 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 28 Oct 2023 01:17:03 -0400 Subject: [PATCH] (auth-source-backend): Don't pass obsolete "name" arg * lisp/auth-source.el (auth-source-backends-parser-file) (auth-source-backends-parser-macos-keychain) (auth-source-backends-parser-secrets): Remove unused "name" argument to `auth-source-backend` constructor. --- lisp/auth-source.el | 6 ------ 1 file changed, 6 deletions(-) diff --git a/lisp/auth-source.el b/lisp/auth-source.el index 365f6697ec8..583b6e57897 100644 --- a/lisp/auth-source.el +++ b/lisp/auth-source.el @@ -387,7 +387,6 @@ soon as a function returns non-nil.") (cond ((equal extension "plist") (auth-source-backend - source :source source :type 'plstore :search-function #'auth-source-plstore-search @@ -395,13 +394,11 @@ soon as a function returns non-nil.") :data (plstore-open source))) ((member-ignore-case extension '("json")) (auth-source-backend - source :source source :type 'json :search-function #'auth-source-json-search)) (t (auth-source-backend - source :source source :type 'netrc :search-function #'auth-source-netrc-search @@ -449,7 +446,6 @@ soon as a function returns non-nil.") (setq source (symbol-name source))) (auth-source-backend - (format "Mac OS Keychain (%s)" source) :source source :type keychain-type :search-function #'auth-source-macos-keychain-search @@ -490,7 +486,6 @@ soon as a function returns non-nil.") (if (featurep 'secrets) (auth-source-backend - (format "Secrets API (%s)" source) :source source :type 'secrets :search-function #'auth-source-secrets-search @@ -498,7 +493,6 @@ soon as a function returns non-nil.") (auth-source-do-warn "auth-source-backend-parse: no Secrets API, ignoring spec: %S" entry) (auth-source-backend - (format "Ignored Secrets API (%s)" source) :source "" :type 'ignore)))))) -- 2.39.2