changeset 13167:c378e215f4d0

(view-highlight-face): New variable. (view-search): Use that variable.
author Richard M. Stallman <rms@gnu.org>
date Mon, 09 Oct 1995 19:42:19 +0000
parents c61ffdb6d9df
children aa2fb1aa0c94
files lisp/view.el
diffstat 1 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)