[nongnu] elpa/git-commit e7e040fcc3 3/3: magit-version: Also output Transient version

[ELPA Syncer]

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

    magit-version: Also output Transient version
---
 lisp/magit.el | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/lisp/magit.el b/lisp/magit.el
index 4e2eed4a10..bb785ae124 100644
--- a/lisp/magit.el
+++ b/lisp/magit.el
@@ -569,7 +569,7 @@ Use the function by the same name instead of this 
variable.")
   "Return the version of Magit currently in use.
 
 If optional argument PRINT-DEST is non-nil, also print the used
-versions of Magit, Git and Emacs to the output stream
+versions of Magit, Transient, Git and Emacs to the output stream
 selected by that argument.  Interactively use the echo area, or
 with a prefix argument use the current buffer.  Additionally put
 the output in the kill ring.
@@ -643,7 +643,7 @@ the output in the kill ring.
     (if (stringp magit-version)
         (when print-dest
           (let ((str (format
-                      "Magit %s%s, Git %s, Emacs %s, %s"
+                      "Magit %s%s, Transient %s, Git %s, Emacs %s, %s"
                       (or magit-version "(unknown)")
                       (or (and (ignore-errors
                                  (magit--version>= magit-version "2008"))
@@ -657,6 +657,14 @@ the output in the kill ring.
                                           (locate-library "magit.el" t))
                                          (lm-header "Package-Version"))))))
                           "")
+                      (or (ignore-errors
+                            (require 'lisp-mnt)
+                            (and (fboundp 'lm-header)
+                                 (with-temp-buffer
+                                   (insert-file-contents
+                                    (locate-library "transient.el" t))
+                                   (lm-header "Package-Version"))))
+                          "(unknown)")
                       (magit--safe-git-version)
                       emacs-version
                       system-type)))