branch: elpa/magit
commit 679736e111c2809f6f2e803bf29931078aee417e
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
magit-blob-next: Move definition after that of magit-blob-previous
That is how I always order such pairs. Not sure what happened here.
---
lisp/magit-files.el | 26 +++++++++++++-------------
1 file changed, 13 insertions(+), 13 deletions(-)
diff --git a/lisp/magit-files.el b/lisp/magit-files.el
index 7f6a73e3185..f094be05cd0 100644
--- a/lisp/magit-files.el
+++ b/lisp/magit-files.el
@@ -377,19 +377,6 @@ in a single window."
(interactive)
(kill-buffer))
-(transient-define-suffix magit-blob-next ()
- "Visit the next blob which modified the current file."
- :inapt-if-nil 'magit-buffer-file-name
- (interactive)
- (cond-let
- [[rev (or magit-buffer-revision "{worktree}")]
- [file (magit-buffer-file-name)]]
- ((not file)
- (user-error "Buffer isn't visiting a file or blob"))
- ([next (magit-blob-successor rev file)]
- (apply #'magit-blob-visit next))
- ((user-error "You have reached the end of time"))))
-
(transient-define-suffix magit-blob-previous ()
"Visit the previous blob which modified the current file."
:inapt-if-not (##and$ (magit-buffer-file-name)
@@ -404,6 +391,19 @@ in a single window."
(apply #'magit-blob-visit prev))
((user-error "You have reached the beginning of time"))))
+(transient-define-suffix magit-blob-next ()
+ "Visit the next blob which modified the current file."
+ :inapt-if-nil 'magit-buffer-file-name
+ (interactive)
+ (cond-let
+ [[rev (or magit-buffer-revision "{worktree}")]
+ [file (magit-buffer-file-name)]]
+ ((not file)
+ (user-error "Buffer isn't visiting a file or blob"))
+ ([next (magit-blob-successor rev file)]
+ (apply #'magit-blob-visit next))
+ ((user-error "You have reached the end of time"))))
+
;;;###autoload
(defun magit-blob-visit-file ()
"View the file from the worktree corresponding to the current blob.
