(hi-lock-unface-buffer): Use nil rather than t for

predicate passed to completing-read.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 982efa28fcd..c583ccdeac3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-02-23  Stefan Monnier  <monnier@cs.yale.edu>
+
+        * hi-lock.el (hi-lock-unface-buffer): Use nil rather than t for
+        predicate passed to completing-read.
+
 2001-02-23  Eli Zaretskii  <eliz@is.elta.co.il>
 
         * startup.el (command-line): Fix last change.
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index 20961226cb5..610a217916f 100644
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -420,7 +420,7 @@ interactive functions.  \(See `hi-lock-interactive-patterns'.\)
          (error "No highlighting to remove"))
        (list
         (completing-read "Regexp to unhighlight: "
-                         hi-lock-interactive-patterns t t
+                         hi-lock-interactive-patterns nil t
                          (car (car hi-lock-interactive-patterns))
                          (cons 'history-list 1))))))
   (let ((keyword (assoc regexp hi-lock-interactive-patterns)))