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