(isearch-highlight): Don't punt if the display

doesn't support colors, since isearch faces are defined for
monochrome displays as well.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3662a6a1d5c683dcb2c64287652739f21f0b61a8..3e4f1ae7e3311073c18650e04ef351f666a4ac28 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-01-28  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * isearch.el (isearch-highlight): Don't punt if the display
+       doesn't support colors, since isearch faces are defined for
+       monochrome displays as well.
+
 2001-01-27  Sam Steingold  <sds@gnu.org>
 
        * shell.el (shell-write-history-on-exit): Make sure that we are in

diff --git a/lisp/isearch.el b/lisp/isearch.el
index ff63d5ab3d09745cf4fd946fb80cd7b45baaf020..8a69d51a93ba696376367180605982800783c208 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1744,7 +1744,7 @@ If there is no completion possible, say so and continue searching."
 (defvar isearch-overlay nil)
 
 (defun isearch-highlight (beg end)
-  (unless (or (null search-highlight) (null (display-color-p)))
+  (unless (null search-highlight)
     (cond (isearch-overlay
           ;; Overlay already exists, just move it.
           (move-overlay isearch-overlay beg end (current-buffer)))