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