From e6a2256c8b7357f9654a566e31647316f44780c3 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 11 Feb 2025 06:10:39 +0100 Subject: Add new function lm-package-version * lisp/emacs-lisp/lisp-mnt.el (lm-package-version): New function. * lisp/emacs-lisp/package.el (package-buffer-info) (package-get-version): Use above new function. (lm-package-version): Declare. --- lisp/emacs-lisp/lisp-mnt.el | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'lisp/emacs-lisp/lisp-mnt.el') 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. -- cgit v1.2.3