63 |
(defvar log-view-mode-hook nil |
(defvar log-view-mode-hook nil |
64 |
"Hook run at the end of `log-view-mode'.") |
"Hook run at the end of `log-view-mode'.") |
65 |
|
|
66 |
(defface log-view-file-face |
(defface log-view-file |
67 |
'((((class color) (background light)) |
'((((class color) (background light)) |
68 |
(:background "grey70" :weight bold)) |
(:background "grey70" :weight bold)) |
69 |
(t (:weight bold))) |
(t (:weight bold))) |
70 |
"Face for the file header line in `log-view-mode'." |
"Face for the file header line in `log-view-mode'." |
71 |
:group 'log-view) |
:group 'log-view) |
72 |
(defvar log-view-file-face 'log-view-file-face) |
;; backward-compatibility alias |
73 |
|
(put 'log-view-file-face 'face-alias 'log-view-file) |
74 |
|
(defvar log-view-file-face 'log-view-file) |
75 |
|
|
76 |
(defface log-view-message-face |
(defface log-view-message |
77 |
'((((class color) (background light)) |
'((((class color) (background light)) |
78 |
(:background "grey85")) |
(:background "grey85")) |
79 |
(t (:weight bold))) |
(t (:weight bold))) |
80 |
"Face for the message header line in `log-view-mode'." |
"Face for the message header line in `log-view-mode'." |
81 |
:group 'log-view) |
:group 'log-view) |
82 |
(defvar log-view-message-face 'log-view-message-face) |
;; backward-compatibility alias |
83 |
|
(put 'log-view-message-face 'face-alias 'log-view-message) |
84 |
|
(defvar log-view-message-face 'log-view-message) |
85 |
|
|
86 |
(defconst log-view-file-re |
(defconst log-view-file-re |
87 |
(concat "^\\(" |
(concat "^\\(" |