Better emodule update error message
This commit is contained in:
parent
5906f63920
commit
751fc9c328
@ -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-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)
|
||||
(push pkg-name upgrades))))
|
||||
(progn
|
||||
(emodule/print-log (format "Package '%s' will be upgraded" pkg-name))
|
||||
(push pkg-name upgrades))))))
|
||||
upgrades))
|
||||
|
||||
(defun emodule/upgrade ()
|
||||
|
Reference in New Issue
Block a user