From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 9 Oct 1995 19:42:19 +0000 (+0000)
Subject: (view-highlight-face): New variable.
X-Git-Tag: emacs-19.34~2693
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=82380f84741972748266ce65c7864146f753981c;p=emacs.git

(view-highlight-face): New variable.
(view-search): Use that variable.
---

diff --git a/lisp/view.el b/lisp/view.el
index 5e3069efb46..32c2285c311 100644
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -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 @@ invocations return to earlier marks."
 	      (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)