Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-17 05:51:24 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/emacs-lisp/package-vc.el (package-vc-version): Use main file

Browse source
This commit is contained in:
Philip Kaludercic 2022-11-03 19:28:47 +01:00
parent ec01d9a209
commit 0e75099da8
1 changed files with 7 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/emacs-lisp/package-vc.el
View file

@ -276,17 +276,13 @@ asynchronously."
(defun package-vc-version (pkg)
"Extract the commit of a development package PKG."
(cl-assert (package-vc-p pkg))
(cl-loop with dir = (package-desc-dir pkg) ;FIXME: dir is nil
for file in (sort (directory-files dir t "\\.el\\'")
(lambda (s1 s2)
(< (length s1) (length s2))))
when (with-temp-buffer
(insert-file-contents file)
(package-strip-rcs-id
(or (lm-header "package-version")
(lm-header "version"))))
return it
finally return "0"))
(if-let ((main-file (package-vc-main-file pkg)))
(with-temp-buffer
(insert-file-contents main-file)
(package-strip-rcs-id
(or (lm-header "package-version")
(lm-header "version"))))
"0"))
(defun package-vc-main-file (pkg-desc)
"Return the main file for PKG-DESC."