Mercurial > emacs

changeset 3717:620f551ac276

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(isearch-highlight): If no face `isearch', use `region'.
author Richard M. Stallman <rms@gnu.org>
date Sun, 13 Jun 1993 21:43:15 +0000
parents c8af07496d54
children 37a8a7489fc5
files lisp/isearch.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/isearch.el	Sun Jun 13 19:16:02 1993 +0000
+++ b/lisp/isearch.el	Sun Jun 13 21:43:15 1993 +0000
@@ -4,7 +4,7 @@
 
 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
 
-;; |$Date: 1993/06/06 22:11:22 $|$Revision: 1.41 $
+;; |$Date: 1993/06/09 11:53:58 $|$Revision: 1.42 $
 
 ;; This file is not yet part of GNU Emacs, but it is based almost
 ;; entirely on isearch.el which is part of GNU Emacs.
@@ -1332,11 +1332,13 @@
 (defvar isearch-overlay nil)
 
 (defun isearch-highlight (beg end)
-  (if (or (null search-highlight) (not (internal-find-face 'isearch nil)))
+  (if (null search-highlight)
       nil
     (or isearch-overlay (setq isearch-overlay (make-overlay beg end)))
     (move-overlay isearch-overlay beg end (current-buffer))
-    (overlay-put isearch-overlay 'face 'isearch)))
+    (overlay-put isearch-overlay 'face
+		 (if (internal-find-face 'isearch nil)
+		     'isearch 'region))))
 
 (defun isearch-dehighlight (totally)
   (if isearch-overlay