[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master af0d0b8: * lisp/auth-source.el (auth-source--symbol
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master af0d0b8: * lisp/auth-source.el (auth-source--symbol-keyword): Fix namespace |
Date: |
Fri, 1 Jul 2016 15:59:45 +0000 (UTC) |
branch: master
commit af0d0b8cfc38117ef7405bc1dd9f20e8705e8072
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/auth-source.el (auth-source--symbol-keyword): Fix namespace
i.e. rename from auto-source--symbol-keyword.
---
lisp/auth-source.el | 24 ++++++++++++------------
1 file changed, 12 insertions(+), 12 deletions(-)
diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index fe28a02..97059fa 100644
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -1155,7 +1155,7 @@ FILE is the file from which we obtained this token."
(point-min)
(point-max))))))
-(defun auto-source--symbol-keyword (symbol)
+(defun auth-source--symbol-keyword (symbol)
(intern (format ":%s" symbol)))
(defun auth-source-netrc-normalize (alist filename)
@@ -1191,7 +1191,7 @@ FILE is the file from which we obtained this token."
(setq lexv (funcall token-decoder lexv)))
lexv))))
(setq ret (plist-put ret
- (auto-source--symbol-keyword k)
+ (auth-source--symbol-keyword k)
v))))
ret))
alist))
@@ -1268,7 +1268,7 @@ See `auth-source-search' for details on SPEC."
;; fill in the valist with whatever data we may have from the search
;; we complete the first value if it's a list and use the value otherwise
(dolist (br base-required)
- (let ((val (plist-get spec (auto-source--symbol-keyword br))))
+ (let ((val (plist-get spec (auth-source--symbol-keyword br))))
(when val
(let ((br-choice (cond
;; all-accepting choice (predicate is t)
@@ -1280,7 +1280,7 @@ See `auth-source-search' for details on SPEC."
;; for extra required elements, see if the spec includes a value for them
(dolist (er create-extra)
- (let ((k (auto-source--symbol-keyword er))
+ (let ((k (auth-source--symbol-keyword er))
(keys (loop for i below (length spec) by 2
collect (nth i spec))))
(when (memq k keys)
@@ -1292,7 +1292,7 @@ See `auth-source-search' for details on SPEC."
;; take the first element if the data is a list
(data (or (auth-source-netrc-element-or-first data)
(plist-get current-data
- (auto-source--symbol-keyword r))))
+ (auth-source--symbol-keyword r))))
;; this is the default to be offered
(given-default (auth-source--aget
auth-source-creation-defaults r))
@@ -1382,7 +1382,7 @@ See `auth-source-search' for details on SPEC."
(when data
(setq artificial (plist-put artificial
- (auto-source--symbol-keyword r)
+ (auth-source--symbol-keyword r)
(if (eq r 'secret)
(lexical-let ((data data))
(lambda () data))
@@ -1840,7 +1840,7 @@ entries for git.gnus.org:
(defun auth-source-macos-keychain-result-append (result generic k v)
(push v result)
- (push (auto-source--symbol-keyword
+ (push (auth-source--symbol-keyword
(cond
((equal k "acct") "user")
;; for generic keychains, creator is host, service is port
@@ -1957,7 +1957,7 @@ entries for git.gnus.org:
;; fill in the valist with whatever data we may have from the search
;; we complete the first value if it's a list and use the value otherwise
(dolist (br base-required)
- (let ((val (plist-get spec (auto-source--symbol-keyword br))))
+ (let ((val (plist-get spec (auth-source--symbol-keyword br))))
(when val
(let ((br-choice (cond
;; all-accepting choice (predicate is t)
@@ -1969,7 +1969,7 @@ entries for git.gnus.org:
;; for extra required elements, see if the spec includes a value for them
(dolist (er create-extra)
- (let ((k (auto-source--symbol-keyword er))
+ (let ((k (auth-source--symbol-keyword er))
(keys (loop for i below (length spec) by 2
collect (nth i spec))))
(when (memq k keys)
@@ -1981,7 +1981,7 @@ entries for git.gnus.org:
;; take the first element if the data is a list
(data (or (auth-source-netrc-element-or-first data)
(plist-get current-data
- (auto-source--symbol-keyword r))))
+ (auth-source--symbol-keyword r))))
;; this is the default to be offered
(given-default (auth-source--aget
auth-source-creation-defaults r))
@@ -2041,10 +2041,10 @@ entries for git.gnus.org:
(if (member r base-secret)
(setq secret-artificial
(plist-put secret-artificial
- (auto-source--symbol-keyword r)
+ (auth-source--symbol-keyword r)
data))
(setq artificial (plist-put artificial
- (auto-source--symbol-keyword r)
+ (auth-source--symbol-keyword r)
data))))))
(plstore-put (oref backend data)
(sha1 (format "address@hidden:%s"
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master af0d0b8: * lisp/auth-source.el (auth-source--symbol-keyword): Fix namespace,
Stefan Monnier <=