[gnus git] branch master updated: n0-17-116-g05dc275 =1= Rename "arg" auth-source-backend member to "data".

       via  05dc2751e246bc05d1d5f9728e71b6f05ae5150f (commit)
      from  0de65416e6335fa121f250c6ca8e95693df2bf94 (commit)


- Log -----------------------------------------------------------------
commit 05dc2751e246bc05d1d5f9728e71b6f05ae5150f
Author: Ted Zlatanov <[email protected]>
Date:   Thu Jun 30 09:52:08 2011 -0500

    Rename "arg" auth-source-backend member to "data".
    
    * auth-source.el (auth-source-backend): Rename "arg" member to "data".
    (auth-source-backend-parse, auth-source-plstore-search)
    (auth-source-plstore-create): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4d8aa64..e401621 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,9 @@
 	* auth-source.el: Autoload EPA/EPG functions.
 	(auth-source-netrc-use-gpg-tokens): Clarify that it should not be
 	changed when EPA/EPG is not available.
+	(auth-source-backend): Rename "arg" member to "data".
+	(auth-source-backend-parse, auth-source-plstore-search)
+	(auth-source-plstore-create): Use it.
 
 2011-06-30  Andrew Cohen  <[email protected]>
 
diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 449d8c5..4133eab 100644
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -127,9 +127,9 @@ let-binding."
          :type t
          :custom string
          :documentation "The backend protocol.")
-   (arg :initarg :arg
+   (data :initarg :arg
 	:initform nil
-	:documentation "The backend arg.")
+         :documentation "Internal backend data.")
    (create-function :initarg :create-function
                     :initform ignore
                     :type function
@@ -413,7 +413,7 @@ with \"[a/b/c] \" if CHOICES is '\(?a ?b ?c\)."
 	  :type 'plstore
 	  :search-function 'auth-source-plstore-search
 	  :create-function 'auth-source-plstore-create
-	  :arg (plstore-open (plist-get entry :source)))
+	  :data (plstore-open (plist-get entry :source)))
        (auth-source-backend
 	(plist-get entry :source)
 	:source (plist-get entry :source)
@@ -1539,7 +1539,7 @@ authentication tokens:
   (assert (not delete) nil
           "The PLSTORE auth-source backend doesn't support deletion yet")
 
-  (let* ((store (oref backend arg))
+  (let* ((store (oref backend data))
          (max (or max 5000))     ; sanity check: default to stop at 5K
          (ignored-keys '(:create :delete :max :backend :require))
          (search-keys (loop for i below (length spec) by 2
@@ -1718,15 +1718,15 @@ authentication tokens:
 	    (setq artificial (plist-put artificial
 					(intern (concat ":" (symbol-name r)))
 					data))))))
-    (plstore-put (oref backend arg)
+    (plstore-put (oref backend data)
 		 (sha1 (format "%s@%s:%s"
 			       (plist-get artificial :user)
 			       (plist-get artificial :host)
 			       (plist-get artificial :port)))
 		 artificial secret-artificial)
     (if (y-or-n-p (format "Save auth info to file %s? "
-			  (plstore-get-file (oref backend arg))))
-	(plstore-save (oref backend arg)))))
+			  (plstore-get-file (oref backend data))))
+	(plstore-save (oref backend data)))))
 
 ;;; older API
 

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog      |    3 +++
 lisp/auth-source.el |   16 ++++++++--------
 2 files changed, 11 insertions(+), 8 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project