# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 982945064 0
# Node ID 06ff4f3266f8d140b92e6397c6378344be19347a
# Parent  a10bf38295d24fdbb10c3b898cf992422efbbc0d
(hi-lock-unface-buffer): Use nil rather than t for
predicate passed to completing-read.

diff -r a10bf38295d2 -r 06ff4f3266f8 lisp/hi-lock.el
--- a/lisp/hi-lock.el	Fri Feb 23 16:13:28 2001 +0000
+++ b/lisp/hi-lock.el	Fri Feb 23 16:17:44 2001 +0000
@@ -420,7 +420,7 @@
          (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)))