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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/git-commit fa42ae0b7c 1/2: magit-repolist-status: Move def


From: ELPA Syncer
Subject: [nongnu] elpa/git-commit fa42ae0b7c 1/2: magit-repolist-status: Move definition
Date: Sun, 20 Feb 2022 12:58:00 -0500 (EST)

branch: elpa/git-commit
commit fa42ae0b7c70b9519d18f4aa19a840281145dbe1
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    magit-repolist-status: Move definition
---
 lisp/magit-repos.el | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/lisp/magit-repos.el b/lisp/magit-repos.el
index 29d5bfc642..8997a1a9ff 100644
--- a/lisp/magit-repos.el
+++ b/lisp/magit-repos.el
@@ -137,7 +137,7 @@ non-nil, means to invert the resulting sort."
                        (boolean :tag "Flip order"))))
 
 ;;; List Repositories
-;;;; Command
+;;;; List Commands
 ;;;###autoload
 (defun magit-list-repositories ()
   "Display a list of repositories.
@@ -147,6 +147,15 @@ repositories are displayed."
   (interactive)
   (magit-repolist-setup (default-value 'magit-repolist-columns)))
 
+;;;; Mode Commands
+
+(defun magit-repolist-status (&optional _button)
+  "Show the status for the repository at point."
+  (interactive)
+  (--if-let (tabulated-list-get-id)
+      (magit-status-setup-buffer (expand-file-name it))
+    (user-error "There is no repository at point")))
+
 ;;;; Mode
 
 (defvar magit-repolist-mode-map
@@ -156,13 +165,6 @@ repositories are displayed."
     map)
   "Local keymap for Magit-Repolist mode buffers.")
 
-(defun magit-repolist-status (&optional _button)
-  "Show the status for the repository at point."
-  (interactive)
-  (--if-let (tabulated-list-get-id)
-      (magit-status-setup-buffer (expand-file-name it))
-    (user-error "There is no repository at point")))
-
 (define-derived-mode magit-repolist-mode tabulated-list-mode "Repos"
   "Major mode for browsing a list of Git repositories."
   (setq-local x-stretch-cursor  nil)



reply via email to

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