Allow specifying the default operator in queries.

1 files changed, 5 insertions, 0 deletions

diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index 00a4896..09554e7 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -191,6 +191,7 @@ generated."
                       (prefixes '())
                       (boolean-prefixes '())
                       (range-processors '())
+                      (default-operator (Query-OP-OR))
                       (boolean? #t)
                       (phrases? #t)
                       (love-hate? #t)
@@ -205,6 +206,9 @@ mapping fields to prefixes or @code{FieldProcessor}
 objects. @var{range-processors} is a list of @code{RangeProcessor}
 objects.
 
+Use @code{default-operator} to combine non-filter query items when no
+explicit operator is used.
+
 When @var{boolean?} is @code{#t}, boolean operators (AND, OR, etc.)
 and bracketed subexpressions are supported.
 
@@ -236,6 +240,7 @@ When @var{partial?} is @code{#t}, enable partial matching."
               boolean-prefixes)
     (for-each (cut QueryParser-add-rangeprocessor queryparser <>)
               range-processors)
+    (QueryParser-set-default-op queryparser default-operator)
     (let ((query (QueryParser-parse-query queryparser
                                           querystring
                                           (bitwise-ior (get-flag QueryParser-FLAG-BOOLEAN boolean?)