Better emodule update error message

This commit is contained in:
Wojciech Kozlowski 2021-08-23 18:41:33 +02:00
parent 5906f63920
commit 751fc9c328

View File

@ -353,13 +353,16 @@ this macro."
(let (upgrades)
(dolist (entry package-alist)
(let* ((pkg-desc (cadr entry))
(pkg-name (package-desc-name pkg-desc))
(pkg-version (package-desc-version pkg-desc))
(pkg-avail (assq pkg-name package-archive-contents))
(pkg-avail-desc (cadr pkg-avail))
(pkg-avail-version (package-desc-version pkg-avail-desc)))
(when (version-list-< pkg-version pkg-avail-version)
(push pkg-name upgrades))))
(pkg-name (package-desc-name pkg-desc)))
(emodule/print-log (format "Checking package '%s' for upgrade" pkg-name))
(let* ((pkg-version (package-desc-version pkg-desc))
(pkg-avail (assq pkg-name package-archive-contents))
(pkg-avail-desc (cadr pkg-avail))
(pkg-avail-version (package-desc-version pkg-avail-desc)))
(when (version-list-< pkg-version pkg-avail-version)
(progn
(emodule/print-log (format "Package '%s' will be upgraded" pkg-name))
(push pkg-name upgrades))))))
upgrades))
(defun emodule/upgrade ()