[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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master eb913c75014: Handle package versions that are not version strings,
Philip Kaludercic <=