emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[nongnu] elpa/git-commit aff4180479 5/5: git-rebase-mode-show-keybinding


From: ELPA Syncer
Subject: [nongnu] elpa/git-commit aff4180479 5/5: git-rebase-mode-show-keybindings: Preserve comment face
Date: Fri, 13 May 2022 09:58:26 -0400 (EDT)

branch: elpa/git-commit
commit aff4180479092b38fae0401f043b119bb2ea7d9f
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    git-rebase-mode-show-keybindings: Preserve comment face
---
 lisp/git-rebase.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/git-rebase.el b/lisp/git-rebase.el
index a6410d17f9..17f1d267e3 100644
--- a/lisp/git-rebase.el
+++ b/lisp/git-rebase.el
@@ -783,7 +783,8 @@ By default, this is the same except for the \"pick\" 
command."
                   nil t))
         (goto-char (line-beginning-position))
         (pcase-dolist (`(,cmd . ,desc) git-rebase-command-descriptions)
-          (insert (format "%s %s %s\n"
+          (insert (format (propertize "%s %s %s\n"
+                                      'font-lock-face 'font-lock-comment-face)
                           comment-start
                           (string-pad
                            (substitute-command-keys (format "\\[%s]" cmd)) 8)
@@ -799,6 +800,9 @@ By default, this is the same except for the \"pick\" 
command."
               (if (not (fboundp cmd))
                   (delete-region (line-beginning-position)
                                  (1+ (line-end-position)))
+                (add-text-properties (line-beginning-position)
+                                     (1+ (line-end-position))
+                                     '(font-lock-face font-lock-comment-face))
                 (replace-match " " t t nil 2)
                 (replace-match
                  (string-pad



reply via email to

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