Mercurial > emacs

comparison lisp/isearch.el @ 28100:5f10effee172

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(isearch-highlight): Use display-color-p.
author Dave Love <fx@gnu.org>
date Sun, 12 Mar 2000 14:42:58 +0000
parents 698ac7a47cc1
children bb2bb38512a3
comparison
equal deleted inserted replaced
28099:18744efb17ba 28100:5f10effee172
1697 ;;; Highlighting 1697 ;;; Highlighting
1698 1698
1699 (defvar isearch-overlay nil) 1699 (defvar isearch-overlay nil)
1700 1700
1701 (defun isearch-highlight (beg end) 1701 (defun isearch-highlight (beg end)
1702 (if (or (null search-highlight) (null window-system)) 1702 (if (or (null search-highlight) (null (display-color-p)))
1703 nil 1703 nil
1704 (or isearch-overlay (setq isearch-overlay (make-overlay beg end))) 1704 (or isearch-overlay (setq isearch-overlay (make-overlay beg end)))
1705 (move-overlay isearch-overlay beg end (current-buffer)) 1705 (move-overlay isearch-overlay beg end (current-buffer))
1706 (overlay-put isearch-overlay 'face 1706 (overlay-put isearch-overlay 'face
1707 (if (internal-find-face 'isearch nil) 1707 (if (internal-find-face 'isearch nil)