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

predicate passed to completing-read.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 982efa28fcda3b62747489be1c7900b0e5d22543..c583ccdeac38958323721de0dec4af14a32139b9 100644 (file)
--- 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 20961226cb513707e9adfa361ca62f56650d8592..610a217916f2665991e326a926d92e9a608c0f08 100644 (file)
--- 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)))