emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master a386833503: Add log-edit-summary-separator face (bug#58092)


From: Protesilaos Stavrou
Subject: master a386833503: Add log-edit-summary-separator face (bug#58092)
Date: Mon, 26 Sep 2022 10:02:07 -0400 (EDT)

branch: master
commit a386833503430732a5c9bed8dbc5c3073f72b5ab
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    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 0a5b7bc29c..99243481a0 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 5290616302..4624ada417 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))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]