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

[Felix Lechner]

---
 debbugs-gnu.el |  4 ++--
 debbugs-org.el |  2 +-
 debbugs.el     | 14 +++++++-------
 debbugs.texi   | 16 ++++++++--------
 4 files changed, 18 insertions(+), 18 deletions(-)

diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index e1d8c7d6f8..b1bd040ea9 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -852,7 +852,7 @@ Shall be bound in `debbugs-org-*' functions.")
   "Retrieve the open bugs, that you submitted.
 This function assumes the variable `user-mail-address' is defined."
   (interactive)
-  (apply #'debbugs-gnu-bugs (debbugs-get-bugs :submitter "me" :status "open")))
+  (apply #'debbugs-gnu-bugs (debbugs-get-bugs '(:submitter "me" :status 
"open"))))
 
 (defun debbugs-gnu-get-bugs (query)
   "Retrieve bug numbers from debbugs.gnu.org according search criteria."
@@ -900,7 +900,7 @@ This function assumes the variable `user-mail-address' is 
defined."
       (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)))))
+     (t (debbugs-get-bugs args)))))
 
 (defun debbugs-gnu--split-address (string)
   "Split mail-like STRING into a name/email address pair."
diff --git a/debbugs-org.el b/debbugs-org.el
index c8a94c32dc..897173f276 100644
--- a/debbugs-org.el
+++ b/debbugs-org.el
@@ -366,7 +366,7 @@ This function assumes the variable `user-mail-address' is
 defined."
   (interactive)
   (let ((debbugs-gnu-show-reports-function #'debbugs-org-show-reports))
-    (apply #'debbugs-gnu-bugs (debbugs-get-bugs :submitter "me" :status 
"open"))))
+    (apply #'debbugs-gnu-bugs (debbugs-get-bugs '(:submitter "me" :status 
"open")))))
 
 ;; TODO
 
diff --git a/debbugs.el b/debbugs.el
index 7310ced0bc..0b6dc57238 100644
--- a/debbugs.el
+++ b/debbugs.el
@@ -175,7 +175,7 @@ Don't set this globally, it shall be let-bound.")
                                    debbugs-progress-reporter-buffers))
                 (length debbugs-progress-reporter-buffers)))))))))
 
-(defun debbugs-get-bugs (&rest query)
+(defun debbugs-get-bugs (query)
   "Return a list of bug numbers which match QUERY.
 
 QUERY is a sequence of keyword-value pairs where the values are
@@ -242,12 +242,12 @@ Example.  Get all opened and forwarded release critical 
bugs for
 the packages which are maintained by \"me\" and which have a
 patch:
 
-  \(debbugs-get-bugs :maint \"me\" :tag \"patch\"
-                     :severity \"critical\"
-                     :status \"open\"
-                     :severity \"grave\"
-                     :status \"forwarded\"
-                     :severity \"serious\")"
+  \(debbugs-get-bugs '(:maint \"me\" :tag \"patch\"
+                       :severity \"critical\"
+                       :status \"open\"
+                       :severity \"grave\"
+                       :status \"forwarded\"
+                       :severity \"serious\"))"
   (let ((debbugs-progress-reporter
         (and debbugs-show-progress
              (make-progress-reporter "Get bug numbers..." 0 100)))
diff --git a/debbugs.texi b/debbugs.texi
index 37faf28330..e68b3a0afd 100644
--- a/debbugs.texi
+++ b/debbugs.texi
@@ -183,9 +183,9 @@ In Debbugs BTS, the bug number is the unique identifier of 
a bug
 report.  The functions described in this section return from the
 Debbugs server the list of bug numbers that match a user's query.
 
-@defun debbugs-get-bugs &rest query
+@defun debbugs-get-bugs query
 This function returns a list of bug numbers that match the
-@var{query}. @var{query} is a sequence of keyword-value pairs where the
+@var{query}. @var{query} is a list of keyword-value pairs where the
 values are strings, i.e. :KEYWORD ``VALUE'' [:KEYWORD ``VALUE'']*
 
 The keyword-value pair is a subquery.  The keywords are allowed to
@@ -288,12 +288,12 @@ packages which are maintained by @code{"me"} and which 
have a patch:
 
 @example
 (let ((debbugs-port "debian.org"))
-  (debbugs-get-bugs :maint "me" :tag "patch"
-                    :severity "critical"
-                    :status "open"
-                    :severity "grave"
-                    :status "forwarded"
-                    :severity "serious"))
+  (debbugs-get-bugs '(:maint "me" :tag "patch"
+                      :severity "critical"
+                      :status "open"
+                      :severity "grave"
+                      :status "forwarded"
+                      :severity "serious")))
 @end example
 @end defun
 
-- 
2.41.0