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

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

[nongnu] elpa/git-commit 9ffaed3f6b: magit-submodule-list-format-path-fu


From: ELPA Syncer
Subject: [nongnu] elpa/git-commit 9ffaed3f6b: magit-submodule-list-format-path-functions: New hook
Date: Fri, 12 Aug 2022 07:58:36 -0400 (EDT)

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

    magit-submodule-list-format-path-functions: New hook
    
    Undocumented for now.
---
 lisp/magit-submodule.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lisp/magit-submodule.el b/lisp/magit-submodule.el
index 0625e20d22..7abaa84858 100644
--- a/lisp/magit-submodule.el
+++ b/lisp/magit-submodule.el
@@ -134,6 +134,8 @@ if non-nil, means to invert the resulting sort."
                  (cons (string :tag "Column name")
                        (boolean :tag "Flip order"))))
 
+(defvar magit-submodule-list-format-path-functions nil)
+
 (defcustom magit-submodule-remove-trash-gitdirs nil
   "Whether `magit-submodule-remove' offers to trash module gitdirs.
 
@@ -684,7 +686,10 @@ These sections can be expanded to show the respective 
commits."
 
 (defun magit-modulelist-column-path (spec)
   "Insert the relative path of the submodule."
-  (cadr (assq :path spec)))
+  (let ((path (cadr (assq :path spec))))
+    (or (run-hook-with-args-until-success
+         'magit-submodule-list-format-path-functions path)
+        path)))
 
 ;;; Utilities
 



reply via email to

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