emacs-diffs
[Top][All Lists]
Advanced

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

master eb913c75014: Handle package versions that are not version strings


From: Philip Kaludercic
Subject: master eb913c75014: Handle package versions that are not version strings
Date: Wed, 10 Jan 2024 03:25:56 -0500 (EST)

branch: master
commit eb913c7501489e1eae475cae843fccdf14cc24d8
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Handle package versions that are not version strings
    
    * lisp/emacs-lisp/package.el (package-menu--version-predicate): Ignore
    any errors raised by 'version-to-list', thus falling back to the
    default version list.  (Bug#68317)
---
 lisp/emacs-lisp/package.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index b21e0f8fc51..868373f46c2 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -4069,8 +4069,8 @@ invocations."
 (defun package-menu--version-predicate (A B)
   "Predicate to sort \"*Packages*\" buffer by the version column.
 This is used for `tabulated-list-format' in `package-menu-mode'."
-  (let ((vA (or (version-to-list (aref (cadr A) 1)) '(0)))
-        (vB (or (version-to-list (aref (cadr B) 1)) '(0))))
+  (let ((vA (or (ignore-error error (version-to-list (aref (cadr A) 1))) '(0)))
+        (vB (or (ignore-error error (version-to-list (aref (cadr B) 1))) 
'(0))))
     (if (version-list-= vA vB)
         (package-menu--name-predicate A B)
       (version-list-< vA vB))))



reply via email to

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