emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Minor error handler refactor in package management

Browse source 
Allow debugger to produce better backtraces.
This commit is contained in:
Henrik Lissner 2018-06-20 02:23:55 +02:00
parent 27ab47cd11
commit 71f0b3ba10
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
core/autoload/packages.el
View file

@ -41,15 +41,14 @@
(doom--refresh-pkg-cache))
(unless (or (doom-cache-get 'last-pkg-refresh)
doom--refreshed-p)
(condition-case-unless-debug ex
(condition-case e
(progn
(message "Refreshing package archives")
(package-refresh-contents)
(package-refresh-contents (not doom-debug-mode))
(doom-cache-set 'last-pkg-refresh t 1200))
('error
((debug error)
(doom--refresh-pkg-cache)
(message "Failed to refresh packages: (%s) %s"
(car ex) (error-message-string ex))))))
(signal 'doom-error e)))))
;;;###autoload
(defun doom-package-backend (name &optional noerror)
@ -340,8 +339,9 @@ example; the package name can be omitted)."
(condition-case e
(let (quelpa-upgrade-p)
(quelpa recipe))
('error (doom--delete-package-files name)
(signal (car e) (cdr e))))
((debug error)
(doom--delete-package-files name)
(signal (car e) (cdr e))))
(package-install name))
(if (not (package-installed-p name))
(doom--delete-package-files name)
@ -366,8 +366,9 @@ package.el as appropriate."
(condition-case e
(let ((quelpa-upgrade-p t))
(quelpa (assq name quelpa-cache)))
('error (doom--delete-package-files name)
(signal (car e) (cdr e)))))
((debug error)
(doom--delete-package-files name)
(signal (car e) (cdr e)))))
(`elpa
(let* ((archive (cadr (assq name package-archive-contents)))
(packages