[PATCH 06/12] Pass query to debbugs-get-usertag as a list; make space for WSDL.

[Felix Lechner]

---
 debbugs-gnu.el | 4 ++--
 debbugs.el     | 8 ++++----
 debbugs.texi   | 8 ++++----
 3 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index b1bd040ea9..3d174d7ed1 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -898,7 +898,7 @@ This function assumes the variable `user-mail-address' is 
defined."
      ;; User tags.
      (tags
       (setq args (mapcar (lambda (x) (if (eq x :package) :user x)) args))
-      (apply #'debbugs-get-usertag args))
+      (debbugs-get-usertag args))
      ;; Otherwise, we retrieve the bugs from the server.
      (t (debbugs-get-bugs args)))))
 
@@ -2440,7 +2440,7 @@ successfully sent."
 
     ;; Retrieve user tags.
     (dolist (user users)
-      (dolist (tag (sort (debbugs-get-usertag :user user) #'string<))
+      (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'.
diff --git a/debbugs.el b/debbugs.el
index 0b6dc57238..49bf99152b 100644
--- a/debbugs.el
+++ b/debbugs.el
@@ -571,10 +571,10 @@ Example:
            (alist-get 'value x))))
       debbugs-soap-invoke-async-object))))
 
-(defun debbugs-get-usertag (&rest query)
+(defun debbugs-get-usertag (query)
   "Return a list of bug numbers which match QUERY.
 
-QUERY is a sequence of keyword-value pairs where the values are
+QUERY is a list of keyword-value pairs where the values are
 strings, i.e. :KEYWORD \"VALUE\" [:KEYWORD \"VALUE\"]*
 
 Valid keywords are:
@@ -595,11 +595,11 @@ existing user tags for :user.
 
 Example:
 
-  \(debbugs-get-usertag :user \"emacs\")
+  \(debbugs-get-usertag '(:user \"emacs\"))
 
   => (\"www\" \"solaris\" \"ls-lisp\" \"cygwin\")
 
-  \(debbugs-get-usertag :user \"emacs\" :tag \"www\" :tag \"cygwin\")
+  \(debbugs-get-usertag '(:user \"emacs\" :tag \"www\" :tag \"cygwin\"))
 
   => (807 1223 5637)"
 
diff --git a/debbugs.texi b/debbugs.texi
index e68b3a0afd..82bfae9e10 100644
--- a/debbugs.texi
+++ b/debbugs.texi
@@ -711,10 +711,10 @@ 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.
 
-@defun debbugs-get-usertag &rest query
+@defun debbugs-get-usertag query
 Return a list of bug numbers which match @var{query}.
 
-@var{query} is a sequence of keyword-value pairs where the values are
+@var{query} is a list of keyword-value pairs where the values are
 strings, i.e. :KEYWORD ``VALUE'' [:KEYWORD ``VALUE'']*
 
 Valid keywords are:
@@ -741,7 +741,7 @@ Example.  Get all user tags for the package @code{"emacs"}:
 
 @example
 (let ((debbugs-port "gnu.org"))
-  (debbugs-get-usertag :user "emacs"))
+  (debbugs-get-usertag '(:user "emacs")))
 
 @result{} ("www" "solaris" "ls-lisp" "cygwin")
 @end example
@@ -751,7 +751,7 @@ Get all bugs tagged by package @code{"emacs"} with 
@code{"www"} or
 
 @example
 (let ((debbugs-port "gnu.org"))
-  (debbugs-get-usertag :user "emacs" :tag "www" :tag "cygwin"))
+  (debbugs-get-usertag '(:user "emacs" :tag "www" :tag "cygwin")))
 
 @result{} (807 1223 5637)
 @end example
-- 
2.41.0