check for rl_completion_matches

[yaz-moved-to-github.git] / ccl / cclfind.c

diff --git a/ccl/cclfind.c b/ccl/cclfind.c
index a7d19b5..579491e 100644 (file)
--- a/ccl/cclfind.c
+++ b/ccl/cclfind.c
@@ -44,7 +44,7 @@
 /* CCL find (to rpn conversion)
  * Europagate, 1995
  *
- * $Id: cclfind.c,v 1.27 2001-11-27 22:38:50 adam Exp $
+ * $Id: cclfind.c,v 1.29 2002-03-18 18:14:34 adam Exp $
  *
  * Old Europagate log:
  *
@@ -592,7 +592,7 @@ static struct ccl_rpn_node *qualifiers2 (CCL_parser cclp,
             }
         }
         else if (cclp->look_token->len == 1 &&
-                 cclp->look_token->name[0] == '"')   /* = - term  ? */
+                 cclp->look_token->name[0] == '-')   /* = - term  ? */
         {
             ADVANCE;
             if (!(p = search_term (cclp, ap)))
@@ -726,7 +726,7 @@ static struct ccl_rpn_node *search_terms (CCL_parser cclp,
                                           struct ccl_rpn_attr **qa)
 {
     static int list[] = {
-        CCL_TOK_TERM, CCL_TOK_COMMA,CCL_TOK_EQ, CCL_TOK_REL, -1};
+        CCL_TOK_TERM, CCL_TOK_COMMA,CCL_TOK_EQ, CCL_TOK_REL, CCL_TOK_SET, -1};
     struct ccl_rpn_node *p1, *p2, *pn;
     p1 = search_term_x (cclp, qa, list, 1);
     if (!p1)