From a386833503430732a5c9bed8dbc5c3073f72b5ab Mon Sep 17 00:00:00 2001 From: Protesilaos Stavrou Date: Mon, 26 Sep 2022 15:41:18 +0300 Subject: [PATCH] Add log-edit-summary-separator face (bug#58092) * lisp/vc/log-edit.el (log-edit-summary-separator): Add new face. (log-edit-font-lock-keywords): Replace hardcoded face attributes with named face. * etc/NEWS: Announce the new face. --- etc/NEWS | 5 +++++ lisp/vc/log-edit.el | 7 ++++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/etc/NEWS b/etc/NEWS index 0a5b7bc29c5..99243481a0b 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -1766,6 +1766,11 @@ Writing shorter summary lines avoids truncation in contexts in which Git commands display summary lines. See the two new user options 'vc-git-log-edit-summary-target-len' and 'vc-git-log-edit-summary-max-len'. +--- +*** New 'log-edit-headers-separator' face +It is used to style the line that separates the 'log-edit' headers +from the 'log-edit' summary. + ** Message --- diff --git a/lisp/vc/log-edit.el b/lisp/vc/log-edit.el index 52906163024..4624ada4179 100644 --- a/lisp/vc/log-edit.el +++ b/lisp/vc/log-edit.el @@ -325,6 +325,11 @@ automatically." (defface log-edit-summary '((t :inherit font-lock-function-name-face)) "Face for the summary in `log-edit-mode' buffers.") +(defface log-edit-headers-separator + '((t :height 0.1 :inverse-video t :extend t)) + "Face for the separator line in `log-edit-mode' buffers." + :version "29.1") + (defface log-edit-header '((t :inherit font-lock-keyword-face)) "Face for the headers in `log-edit-mode' buffers.") @@ -393,7 +398,7 @@ The first subexpression is the actual text of the field.") nil lax)) ("^\n" (progn (goto-char (match-end 0)) (1+ (match-end 0))) nil - (0 '(face (:height 0.1 :inverse-video t :extend t) + (0 '(face log-edit-headers-separator display-line-numbers-disable t rear-nonsticky t)))) (log-edit--match-first-line (0 'log-edit-summary)))) -- 2.39.2