emacs-diffs
[Top][All Lists]
Advanced

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

feature/package+vc ec3f102b8c 07/10: Prefer "Package-Version" over "Vers


From: Philip Kaludercic
Subject: feature/package+vc ec3f102b8c 07/10: Prefer "Package-Version" over "Version" if available
Date: Sun, 30 Oct 2022 13:55:31 -0400 (EDT)

branch: feature/package+vc
commit ec3f102b8cc6f7010a13f247d1eca2178ba04987
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Prefer "Package-Version" over "Version" if available
    
    * lisp/emacs-lisp/package-vc.el (package-vc-release-rev): Search for
    both in sequence.
---
 lisp/emacs-lisp/package-vc.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index ab1bffdd21..608d06d426 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -486,8 +486,13 @@ If no such revision can be found, return nil."
     (save-excursion
       (goto-char (point-min))
       (let ((case-fold-search t))
-        (when (re-search-forward (concat (lm-get-header-re "version") ".*$")
-                                 (lm-code-start) t)
+        (when (cond
+               ((re-search-forward
+                 (concat (lm-get-header-re "package-version") ".*$")
+                 (lm-code-start) t))
+               ((re-search-forward
+                 (concat (lm-get-header-re "version") ".*$")
+                 (lm-code-start) t)))
           (ignore-error vc-not-supported
             (vc-call-backend (vc-backend (buffer-file-name))
                              'last-change



reply via email to

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