[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/git-commit 670dad14b5 2/5: git-rebase-mode-show-keybinding
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/git-commit 670dad14b5 2/5: git-rebase-mode-show-keybindings: Cosmetics |
Date: |
Fri, 13 May 2022 09:58:22 -0400 (EDT) |
branch: elpa/git-commit
commit 670dad14b55627a6a97fc369587639a543b5db59
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
git-rebase-mode-show-keybindings: Cosmetics
---
lisp/git-rebase.el | 16 +++++++++-------
1 file changed, 9 insertions(+), 7 deletions(-)
diff --git a/lisp/git-rebase.el b/lisp/git-rebase.el
index 897a00c416..941c7962e6 100644
--- a/lisp/git-rebase.el
+++ b/lisp/git-rebase.el
@@ -793,15 +793,17 @@ By default, this is the same except for the \"pick\"
command."
nil t)
(let ((cmd (intern (concat "git-rebase-" (match-string 3)))))
(if (not (fboundp cmd))
- (delete-region (line-beginning-position) (1+
(line-end-position)))
+ (delete-region (line-beginning-position)
+ (1+ (line-end-position)))
(replace-match " " t t nil 1)
(replace-match
- (format "%-8s"
- (mapconcat #'key-description
- (--remove (eq (elt it 0) 'menu-bar)
- (reverse (where-is-internal
- cmd
git-rebase-mode-map)))
- ", "))
+ (format
+ "%-8s"
+ (mapconcat #'key-description
+ (cl-remove-if (lambda (key) (eq (elt key 0)
'menu-bar))
+ (reverse (where-is-internal
+ cmd git-rebase-mode-map)))
+ ", "))
t t nil 2))))))))
(add-hook 'git-rebase-mode-hook #'git-rebase-mode-show-keybindings t)