diff options
Diffstat (limited to 'lisp/log-view.el')
| -rw-r--r-- | lisp/log-view.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/log-view.el b/lisp/log-view.el index c153cbdbb60..302246e2f4c 100644 --- a/lisp/log-view.el +++ b/lisp/log-view.el | |||
| @@ -63,21 +63,25 @@ | |||
| 63 | (defvar log-view-mode-hook nil | 63 | (defvar log-view-mode-hook nil |
| 64 | "Hook run at the end of `log-view-mode'.") | 64 | "Hook run at the end of `log-view-mode'.") |
| 65 | 65 | ||
| 66 | (defface log-view-file-face | 66 | (defface log-view-file |
| 67 | '((((class color) (background light)) | 67 | '((((class color) (background light)) |
| 68 | (:background "grey70" :weight bold)) | 68 | (:background "grey70" :weight bold)) |
| 69 | (t (:weight bold))) | 69 | (t (:weight bold))) |
| 70 | "Face for the file header line in `log-view-mode'." | 70 | "Face for the file header line in `log-view-mode'." |
| 71 | :group 'log-view) | 71 | :group 'log-view) |
| 72 | (defvar log-view-file-face 'log-view-file-face) | 72 | ;; backward-compatibility alias |
| 73 | (put 'log-view-file-face 'face-alias 'log-view-file) | ||
| 74 | (defvar log-view-file-face 'log-view-file) | ||
| 73 | 75 | ||
| 74 | (defface log-view-message-face | 76 | (defface log-view-message |
| 75 | '((((class color) (background light)) | 77 | '((((class color) (background light)) |
| 76 | (:background "grey85")) | 78 | (:background "grey85")) |
| 77 | (t (:weight bold))) | 79 | (t (:weight bold))) |
| 78 | "Face for the message header line in `log-view-mode'." | 80 | "Face for the message header line in `log-view-mode'." |
| 79 | :group 'log-view) | 81 | :group 'log-view) |
| 80 | (defvar log-view-message-face 'log-view-message-face) | 82 | ;; backward-compatibility alias |
| 83 | (put 'log-view-message-face 'face-alias 'log-view-message) | ||
| 84 | (defvar log-view-message-face 'log-view-message) | ||
| 81 | 85 | ||
| 82 | (defconst log-view-file-re | 86 | (defconst log-view-file-re |
| 83 | (concat "^\\(" | 87 | (concat "^\\(" |