diff options
author | Richard M. Stallman <[email protected]> | 1993-06-13 21:43:15 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1993-06-13 21:43:15 +0000 |
commit | 82318db5ea5b898910d7ccbaa2afc057c9528e60 (patch) | |
tree | bed7efff4fff370d02980e5bc54003a47d1a249d /lisp | |
parent | eca5b04cf9929953c4a711795703ff8bd063e5d7 (diff) |
(isearch-highlight): If no face `isearch', use `region'.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/isearch.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 46b9e0c978..6ac5fb62d0 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -4,7 +4,7 @@ ;; Author: Daniel LaLiberte <[email protected]> -;; |$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 @@ If there is no completion possible, say so and continue searching." (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 |