[ELPA-diffs] /srv/bzr/emacs/elpa r287: * debbugs-gnu.el (debbugs-gnu-usertags): Rename argument to USERS

[Michael Albinus]

------------------------------------------------------------
revno: 287
committer: Michael Albinus <address@hidden
branch nick: elpa
timestamp: Mon 2012-10-29 13:56:24 +0100
message:
  * debbugs-gnu.el (debbugs-gnu-usertags): Rename argument to USERS
  
  * debbugs-gnu.el (debbugs-gnu-get-bugs):
  * debbugs.el (debbugs-get-usertag): Use keyword :user instead of :package.
  
  * debbugs.texi (Requesting user tags): New node.
  
  * Debbugs.wsdl (search_estRequest): Remove superfluous arguments.
modified:
  packages/debbugs/Debbugs.wsdl
  packages/debbugs/debbugs-gnu.el
  packages/debbugs/debbugs.el
  packages/debbugs/debbugs.texi

=== modified file 'packages/debbugs/Debbugs.wsdl'
--- a/packages/debbugs/Debbugs.wsdl     2012-10-17 12:32:38 +0000
+++ b/packages/debbugs/Debbugs.wsdl     2012-10-29 12:56:24 +0000
@@ -132,8 +132,7 @@
   </wsdl:message>
 
   <wsdl:message name="search_estRequest">
-    <wsdl:part name="query" type="types:ArrayOfArrayOfAnyType"
-              minOccurs="1" maxOccurs="unbounded"/>
+    <wsdl:part name="query" type="types:ArrayOfArrayOfAnyType"/>
   </wsdl:message>
   <wsdl:message name="search_estResponse">
     <wsdl:part name="soapenc:Array" type="types:ArrayOfArrayOfArrayOfAnyType"/>

=== modified file 'packages/debbugs/debbugs-gnu.el'
--- a/packages/debbugs/debbugs-gnu.el   2012-10-26 06:54:21 +0000
+++ b/packages/debbugs/debbugs-gnu.el   2012-10-29 12:56:24 +0000
@@ -545,7 +545,9 @@
        (lambda (x) (cdr (assoc "id" x)))
        (apply 'debbugs-search-est args)))
       ;; User tags.
-      (tags (apply 'debbugs-get-usertag args))
+      (tags
+       (setq args (mapcar (lambda (x) (if (eq x :package) :user x)) args))
+       (apply 'debbugs-get-usertag args))
       ;; Otherwise, we retrieve the bugs from the server.
       (t (apply 'debbugs-get-bugs args)))
      ;; Sort function.
@@ -1152,7 +1154,7 @@
   (setq buffer-read-only t))
 
 ;;;###autoload
-(defun debbugs-gnu-usertags (&optional packages)
+(defun debbugs-gnu-usertags (&optional users)
   "List all outstanding Emacs bugs."
   (interactive
    (list
@@ -1168,7 +1170,7 @@
            (debbugs-port "gnu.org")
            (buffer-name "*Emacs User Tags*")
            (user-tab-length
-            (1+ (apply 'max (length "User") (mapcar 'length packages)))))
+            (1+ (apply 'max (length "User") (mapcar 'length users)))))
 
        ;; Initialize variables.
        (when (and (file-exists-p debbugs-gnu-persistency-file)
@@ -1189,13 +1191,13 @@
        (erase-buffer)
 
        ;; Retrieve user tags.
-       (dolist (package packages)
-         (dolist (tag (sort (debbugs-get-usertag :package package) 'string<))
+       (dolist (user users)
+         (dolist (tag (sort (debbugs-get-usertag :user user) 'string<))
            (add-to-list
             'tabulated-list-entries
             ;; `tabulated-list-id' is the parameter list for `debbugs-gnu'.
-            `((("tagged") (,package) nil nil (,tag))
-              ,(vector (propertize package 'mouse-face widget-mouse-face)
+            `((("tagged") (,user) nil nil (,tag))
+              ,(vector (propertize user 'mouse-face widget-mouse-face)
                        (propertize tag 'mouse-face widget-mouse-face)))
             'append)))
 

=== modified file 'packages/debbugs/debbugs.el'
--- a/packages/debbugs/debbugs.el       2012-10-25 09:43:50 +0000
+++ b/packages/debbugs/debbugs.el       2012-10-29 12:56:24 +0000
@@ -328,27 +328,27 @@
 
 Valid keywords are:
 
-  :package -- The value is the name of the package a bug belongs
-  to, like \"emacs\", \"coreutils\", \"gnus\", or \"tramp\".  It
-  can also be an email address of a user who has applied a user
-  tag.  The special email address \"me\" is used as pattern,
-  replaced with `user-mail-address'.  There must be at least one
-  such entry; it is recommended to have exactly one.
+  :user -- The value is the name of the package a bug belongs to,
+  like \"emacs\", \"coreutils\", \"gnus\", or \"tramp\".  It can
+  also be an email address of a user who has applied a user tag.
+  The special email address \"me\" is used as pattern, replaced
+  with `user-mail-address'.  There must be at least one such
+  entry; it is recommended to have exactly one.
 
   :tag -- A string applied as user tag.  Often, it is a
   subproduct identification, like \"cedet\" or \"tramp\" for the
   package \"emacs\".
 
 If there is no :tag entry, no bug numbers will be returned but a list of
-existing user tags for :package.
+existing user tags for :user.
 
 Example:
 
-  \(debbugs-get-usertag :package \"emacs\")
+  \(debbugs-get-usertag :user \"emacs\")
 
   => (\"www\" \"solaris\" \"ls-lisp\" \"cygwin\")
 
-  \(debbugs-get-usertag :package \"emacs\" :tag \"www\" :tag \"cygwin\")
+  \(debbugs-get-usertag :user \"emacs\" :tag \"www\" :tag \"cygwin\")
 
   => (807 1223 5637)"
 
@@ -361,7 +361,7 @@
        (error "Wrong query: %s %s" kw val))
       (setq key (substring (symbol-name kw) 1))
       (case kw
-       ((:package)
+       ((:user)
         ;; Value shall be one word.  Extract email address, if existing.
         (if (string-match "\\`\\S-+\\'" val)
             (progn
@@ -381,7 +381,7 @@
     (unless (null query)
       (error "Unknown key: %s" (car query)))
     (unless (= (length user) 1)
-      (error "There must be exactly one :package entry"))
+      (error "There must be exactly one :user entry"))
 
     (setq
      object

=== modified file 'packages/debbugs/debbugs.texi'
--- a/packages/debbugs/debbugs.texi     2011-09-27 14:30:16 +0000
+++ b/packages/debbugs/debbugs.texi     2012-10-29 12:56:24 +0000
@@ -71,6 +71,7 @@
 * Requesting bug numbers::      How to request bug report numbers.
 * Requesting bugs statuses::    How to request the status of bug reports.
 * Requesting messages::         How to get messages from bug reports.
+* Requesting user tags::        How to request tags set by users.
 @end menu
 
 @node Installation
@@ -507,4 +508,55 @@
 specified (@pxref{Configuration}).
 @end defun
 
address@hidden Requesting user tags
address@hidden Requesting user tags
+
+A user tag is a string, a user has assigned to one or several bugs.
+The user is identified by an email address.  The port @code{"gnu.org"}
+uses also package names as user identification.
+
address@hidden debbugs-get-usertag &rest query
+Return a list of bug numbers which match @var{query}.
+
address@hidden is a sequence of keyword-value pairs where the values are
+strings, i.e. :KEYWORD ``VALUE'' [:KEYWORD ``VALUE'']*
+
+Valid keywords are:
+
address@hidden @code
address@hidden :user
+The value is the name of the package a bug belongs to, like
address@hidden"emacs"}, @code{"coreutils"}, or @code{"tramp"}.  It can also be
+an email address of a user who has applied a user tag.  The special
+email address @code{"me"} is used as pattern, replaced with
address@hidden  There must be at least one such entry; it
+is recommended to have exactly one.
+
address@hidden :tag
+A string applied as user tag.  Often, it is a subproduct
+identification, like @code{"cedet"} or @code{"tramp"} for the package
address@hidden"emacs"}.
address@hidden table
+
+If there is no @code{:tag} entry, no bug numbers will be returned but
+a list of existing user tags for @code{:user}.
+
+Example.  Get all user tags for the package @code{"emacs"}:
+
address@hidden
+(let ((debbugs-port "gnu.org"))
+  (debbugs-get-usertag :user "emacs"))
address@hidden ("www" "solaris" "ls-lisp" "cygwin")
address@hidden example
+
+Get all bugs tagged by package @code{"emacs"} with @code{"www"} or
address@hidden"cygwin"})):
+
address@hidden
+(let ((debbugs-port "gnu.org"))
+  (debbugs-get-usertag :user "emacs" :tag "www" :tag "cygwin"))
address@hidden (807 1223 5637)
address@hidden example
address@hidden defun
+
 @bye