[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