From: Eshel Yaron <me@eshelyaron.com>
Date: Thu, 16 Nov 2023 18:44:15 +0000 (+0100)
Subject: * sweeprolog.el (sweeprolog-read-predicate): Require match.
X-Git-Tag: V9.1.19-sweep-0.27.1~1
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9ec96601bf58412af001b63df9149c16260db96f;p=sweep.git

* sweeprolog.el (sweeprolog-read-predicate): Require match.
---

diff --git a/sweeprolog.el b/sweeprolog.el
index 524f808..dd27284 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -1033,7 +1033,7 @@ default."
        (lambda (cand)
          (funcall sweeprolog-predicate-visible-p-function
                   (car cand))))
-     nil nil 'sweeprolog-read-predicate-history default)))
+     'require-match nil 'sweeprolog-read-predicate-history default)))
 
 (defun sweeprolog-predicate-prefix-boundaries (&optional point)
   (let ((case-fold-search nil))