master 1f0b929: Use a separate face for expanded log-view bodies

[Lars Ingebrigtsen]

branch: master
commit 1f0b92943093c2101ca661e24751a3e57934cf77
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Use a separate face for expanded log-view bodies
    
    * lisp/vc/log-view.el (log-view-commit-body): Define new face.
    (log-view-toggle-entry-display): Implement 'log-view-commit-body'
    face (bug#44424).
---
 etc/NEWS            |  5 +++++
 lisp/vc/log-view.el | 14 +++++++++++++-
 2 files changed, 18 insertions(+), 1 deletion(-)

diff --git a/etc/NEWS b/etc/NEWS
index 68a4aac..7eb0b6c 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -436,6 +436,11 @@ their 'default-directory' under VC.
 *** New command 'vc-dir-root' uses the root directory without asking.
 
 ---
+*** New face 'log-view-commit-body'.
+This is used when expanding commit messages from 'vc-print-root-log'
+and similar commands.
+
+---
 *** The responsible VC backend is now the most specific one.
 'vc-responsible-backend' loops over the backends in
 'vc-handled-backends' to determine which backend is responsible for a
diff --git a/lisp/vc/log-view.el b/lisp/vc/log-view.el
index e1c2b97..56ecc64 100644
--- a/lisp/vc/log-view.el
+++ b/lisp/vc/log-view.el
@@ -208,6 +208,18 @@ 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")
+
 (defvar log-view-file-re
   (concat "^\\(?:Working file: \\(?1:.+\\)"                ;RCS and CVS.
           ;; Subversion has no such thing??
@@ -415,7 +427,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)