752 |
(set-window-point (get-buffer-window (current-buffer)) (point)) |
(set-window-point (get-buffer-window (current-buffer)) (point)) |
753 |
(occur-mode-goto-occurrence))) |
(occur-mode-goto-occurrence))) |
754 |
|
|
755 |
|
(defface match |
756 |
|
'((((class color) (min-colors 88) (background light)) |
757 |
|
:background "Tan") |
758 |
|
(((class color) (min-colors 88) (background dark)) |
759 |
|
:background "RoyalBlue4") |
760 |
|
(((class color) (min-colors 8)) |
761 |
|
:background "blue" :foreground "white") |
762 |
|
(((type tty) (class mono)) |
763 |
|
:inverse-video t) |
764 |
|
(t :background "gray")) |
765 |
|
"Face used to highlight matches permanently." |
766 |
|
:group 'matching |
767 |
|
:version "21.4") |
768 |
|
|
769 |
(defcustom list-matching-lines-default-context-lines 0 |
(defcustom list-matching-lines-default-context-lines 0 |
770 |
"*Default number of context lines included around `list-matching-lines' matches. |
"*Default number of context lines included around `list-matching-lines' matches. |
771 |
A negative number means to include that many lines before the match. |
A negative number means to include that many lines before the match. |
775 |
|
|
776 |
(defalias 'list-matching-lines 'occur) |
(defalias 'list-matching-lines 'occur) |
777 |
|
|
778 |
(defcustom list-matching-lines-face 'bold |
(defcustom list-matching-lines-face 'match |
779 |
"*Face used by \\[list-matching-lines] to show the text that matches. |
"*Face used by \\[list-matching-lines] to show the text that matches. |
780 |
If the value is nil, don't highlight the matching portions specially." |
If the value is nil, don't highlight the matching portions specially." |
781 |
:type 'face |
:type 'face |