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).

diff --git a/etc/NEWS b/etc/NEWS
index 68a4aac82b1f9185fbc9485d78854fd94ebad20c..7eb0b6c5ccc45641b9f7df2f8943db788e0d54a1 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -435,6 +435,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

diff --git a/lisp/vc/log-view.el b/lisp/vc/log-view.el
index e1c2b976a49cc543c410ef9f23db19f1f375ddbe..56ecc64671c409d7f5cbdfabf428ac74ea4f1499 100644 (file)
--- 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)