# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 813267739 0
# Node ID c378e215f4d0222bf06d60ec6a880ec8982289b6
# Parent  c61ffdb6d9dfede5d3f688a4d204498df0b07766
(view-highlight-face): New variable.
(view-search): Use that variable.

diff -r c61ffdb6d9df -r c378e215f4d0 lisp/view.el
--- a/lisp/view.el	Mon Oct 09 19:39:45 1995 +0000
+++ b/lisp/view.el	Mon Oct 09 19:42:19 1995 +0000
@@ -28,6 +28,10 @@
 
 ;;; Code:
 
+;;;###autoload
+(defvar view-highlight-face 'highlight
+   "*The overlay face used for highlighting the match found by View mode search.")
+
 (defvar view-mode nil "Non-nil if View mode is enabled.")
 (make-variable-buffer-local 'view-mode)
 
@@ -54,7 +58,8 @@
 (make-variable-buffer-local 'view-exit-position)
 
 (defvar view-overlay nil
-  "Overlay used to display where a search operation found its match.")
+  "Overlay used to display where a search operation found its match.
+This is local in each buffer, once it is used.")
 (make-variable-buffer-local 'view-overlay)
 
 (or (assq 'view-mode minor-mode-alist)
@@ -425,7 +430,7 @@
 	      (move-overlay view-overlay (match-beginning 0) (match-end 0))
 	    (setq view-overlay
 		  (make-overlay (match-beginning 0) (match-end 0))))
-	  (overlay-put view-overlay 'face 'highlight)
+	  (overlay-put view-overlay 'face view-highlight-face)
 	  (beginning-of-line)
 	  (recenter (/ (view-window-size) 2)))
       (message "Can't find occurrence %d of %s" times regexp)