summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/lisp-mnt.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/emacs-lisp/lisp-mnt.el')
-rw-r--r--lisp/emacs-lisp/lisp-mnt.el7
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el
index 6b50bee6fbb..daa20cb29cf 100644
--- a/lisp/emacs-lisp/lisp-mnt.el
+++ b/lisp/emacs-lisp/lisp-mnt.el
@@ -468,6 +468,13 @@ package version (a string)."
(lm--prepare-package-dependencies
(package-read-from-string (mapconcat #'identity require-lines " "))))))
+(defun lm-package-version (&optional file)
+ "Return \"Package-Version\" or \"Version\" header.
+Prefer Package-Version; if defined, the package author
+probably wants us to use it. Otherwise try Version."
+ (lm-with-file file
+ (or (lm-header "package-version") (lm-header "version"))))
+
(defun lm-package-needs-footer-line (&optional file)
"Return non-nil if package in current buffer needs a footer line.