>From a9d338194793bbf4907ea5a493330bdbcbaa0a13 Mon Sep 17 00:00:00 2001 From: Protesilaos Stavrou Date: Tue, 3 Nov 2020 10:22:27 +0200 Subject: [PATCH] Define new face for log-view expanded commit * lisp/vc/log-view.el (log-view-commit-body): Define new face. (log-view-toggle-entry-display): Implement 'log-view-commit-body' face. --- lisp/vc/log-view.el | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/lisp/vc/log-view.el b/lisp/vc/log-view.el index e1c2b976a4..739f84ec5f 100644 --- a/lisp/vc/log-view.el +++ b/lisp/vc/log-view.el @@ -208,6 +208,19 @@ If it is nil, `log-view-toggle-entry-display' does nothing.") "Face for the message header line in `log-view-mode'." :group 'log-view) +(defface log-view-commit-body + '((((class color) (min-colors 88) (background light)) + :background "gray95" :foreground "black" :extend t) + (((class color) (min-colors 88) (background dark)) + :background "gray5" :foreground "white" :extend t) + (((class color) (min-colors 8) (background light)) + :foreground "black") + (((class color) (min-colors 8) (background dark)) + :foreground "white")) + "Face for the commit body in `log-view-mode'." + :version "28.1" + :group 'log-view) + (defvar log-view-file-re (concat "^\\(?:Working file: \\(?1:.+\\)" ;RCS and CVS. ;; Subversion has no such thing?? @@ -415,7 +428,7 @@ This calls `log-view-expanded-log-entry-function' to do the work." (insert long-entry "\n") (add-text-properties beg (point) - '(font-lock-face font-lock-comment-face log-view-comment t)) + '(font-lock-face log-view-commit-body log-view-comment t)) (goto-char opoint)))))))) (defun log-view-beginning-of-defun (&optional arg) -- 2.29.2