From 3126bc20b0eb30ea691b99ba636deecc3d2772cd Mon Sep 17 00:00:00 2001 From: Ted Zlatanov Date: Sun, 29 Jul 2012 18:06:41 -0400 Subject: [PATCH] * auth-source.el (auth-sources, auth-source-macos-keychain-result-append): More fixes. --- lisp/ChangeLog | 1 + lisp/auth-source.el | 6 +++--- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f2b8eb3f5..8591bd05e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -8,6 +8,7 @@ auth-source.el through the /usr/bin/security utility. (auth-sources): Fix syntax error. (auth-source-macos-keychain-result-append): Fix variable name. + (auth-sources, auth-source-macos-keychain-result-append): More fixes. 2012-07-27 Julien Danjou diff --git a/lisp/auth-source.el b/lisp/auth-source.el index 360c8662d..c8810bcd0 100644 --- a/lisp/auth-source.el +++ b/lisp/auth-source.el @@ -290,7 +290,7 @@ can get pretty complex." :value :macos-keychain-internet) (choice :tag "Collection to use" (string :tag "internet Keychain path") - (const :tag "default" 'default)))) + (const :tag "default" 'default))) (list :tag "Mac OS generic Keychain" (const :format "" @@ -1767,7 +1767,7 @@ entries for git.gnus.org: (and (plist-get ret :secret) (list ret)))) (defun auth-source-macos-keychain-result-append (result generic k v) - (push v ret) + (push v result) (setq k (cond ((equal k "acct") "user") ;; for generic keychains, creator is host, service is port @@ -1778,7 +1778,7 @@ entries for git.gnus.org: ((and (not generic) (equal k "srvr")) "host") (t k))) - (push (intern (format ":%s" k)) ret)) + (push (intern (format ":%s" k)) result)) (defun* auth-source-macos-keychain-create (&rest spec -- 2.25.1