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

diff --git a/sweeprolog.el b/sweeprolog.el
index 524f808f323dc71731b849dd3dc5d1b508c99891..dd2728479ceac2e5d21e97a8afb1807d88232851 100644 (file)
--- 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))