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

[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)



reply via email to

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