branch: elpa/magit
commit da1484260cbb18f40b9558a711a0067a3ee00de0
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
Use ## instead of apply-partially in some cases
Do so if the returned/expanded function won't be called with additional
argument (making that obvious at the call site) *and* fixing arguments
does not avoid needlessly repeating work.
---
lisp/magit-diff.el | 2 +-
lisp/magit-repos.el | 4 ++--
lisp/magit-section.el | 2 +-
3 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/lisp/magit-diff.el b/lisp/magit-diff.el
index 54828b8350..8dc934ac68 100644
--- a/lisp/magit-diff.el
+++ b/lisp/magit-diff.el
@@ -2232,7 +2232,7 @@ keymap is the parent of their keymaps."
(magit-diff-wash-diffstat))
(when (re-search-forward magit-diff-headline-re limit t)
(goto-char (line-beginning-position))
- (magit-wash-sequence (apply-partially #'magit-diff-wash-diff args))
+ (magit-wash-sequence (##magit-diff-wash-diff args))
(insert ?\n)))
(defun magit-jump-to-diffstat-or-diff ()
diff --git a/lisp/magit-repos.el b/lisp/magit-repos.el
index 0c15ad86f7..b815757c00 100644
--- a/lisp/magit-repos.el
+++ b/lisp/magit-repos.el
@@ -180,14 +180,14 @@ repositories are displayed."
"Fetch all marked or listed repositories."
(interactive (list (magit-repolist--get-repos ?*)))
(run-hooks 'magit-credential-hook)
- (magit-repolist--mapc (apply-partially #'magit-run-git "remote" "update")
+ (magit-repolist--mapc (##magit-run-git "remote" "update")
repos "Fetching in %s..."))
(defun magit-repolist-find-file-other-frame (repos file)
"Find a file in all marked or listed repositories."
(interactive (list (magit-repolist--get-repos ?*)
(read-string "Find file in repositories: ")))
- (magit-repolist--mapc (apply-partially #'find-file-other-frame file) repos))
+ (magit-repolist--mapc (##find-file-other-frame file) repos))
(defun magit-repolist--ensure-padding ()
"Set `tabulated-list-padding' to 2, unless that is already non-zero."
diff --git a/lisp/magit-section.el b/lisp/magit-section.el
index d732735314..529ca22832 100644
--- a/lisp/magit-section.el
+++ b/lisp/magit-section.el
@@ -672,7 +672,7 @@ See `magit-menu-format-desc'."
,def
;; Without this, the keys for point would be shown instead
;; of the relevant ones from where the click occurred.
- :keys ,(apply-partially #'magit--menu-position-keys def)
+ :keys ,(##magit--menu-position-keys def)
,@props))
(defun magit--menu-position-keys (def)
