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

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

[nongnu] elpa/git-commit 0348f1f 2/2: magit-version: If installed from M


From: ELPA Syncer
Subject: [nongnu] elpa/git-commit 0348f1f 2/2: magit-version: If installed from Melpa then also show base version
Date: Tue, 10 Aug 2021 04:57:23 -0400 (EDT)

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

    magit-version: If installed from Melpa then also show base version
---
 lisp/magit.el | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/lisp/magit.el b/lisp/magit.el
index b8f7df4..13a5a14 100644
--- a/lisp/magit.el
+++ b/lisp/magit.el
@@ -534,8 +534,19 @@ and Emacs to it."
                         (magit-git-string "rev-parse" "HEAD"))))))))
     (if (stringp magit-version)
         (when print-dest
-          (princ (format "Magit %s, Git %s, Emacs %s, %s"
+          (princ (format "Magit %s%s, Git %s, Emacs %s, %s"
                          (or magit-version "(unknown)")
+                         (or (and (ignore-errors (version< "2008" 
magit-version))
+                                  (ignore-errors
+                                    (require 'lisp-mnt)
+                                    (and (fboundp 'lm-header)
+                                         (format
+                                          " [>= %s]"
+                                          (with-temp-buffer
+                                            (insert-file-contents
+                                             (locate-library "magit.el" t))
+                                            (lm-header "Package-Version"))))))
+                             "")
                          (or (let ((magit-git-debug
                                     (lambda (err)
                                       (display-warning '(magit git)



reply via email to

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