Mercurial > emacs
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)