diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-06-17 20:33:08 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-06-17 20:33:38 +0100 |
| commit | 5dc72bc4ba6963c5896daa42e6193d6ae667dc1d (patch) | |
| tree | 40cf778dc9aef8f493e3615ba69f025faf45f233 /lisp/emacs-lisp/package.el | |
| parent | 82585144b6e98ff0d9294442b1226d8be8298d7d (diff) | |
| download | emacs-5dc72bc4ba6963c5896daa42e6193d6ae667dc1d.tar.gz | |
* lisp/emacs-lisp/package.el: Slightly better error reporting.
Diffstat (limited to 'lisp/emacs-lisp/package.el')
| -rw-r--r-- | lisp/emacs-lisp/package.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index b3f1f2fc759..cf1509947bd 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -1896,10 +1896,8 @@ Otherwise return nil." (when str (when (string-match "\\`[ \t]*[$]Revision:[ \t]+" str) (setq str (substring str (match-end 0)))) - (condition-case nil - (if (version-to-list str) - str) - (error nil)))) + (ignore-errors + (if (version-to-list str) str)))) (declare-function lm-homepage "lisp-mnt" (&optional file)) @@ -2998,9 +2996,11 @@ objects removed." (redisplay 'force) (dolist (elt (package--sort-by-dependence delete-list)) (condition-case-unless-debug err - (let ((inhibit-message t)) + (let ((inhibit-message package-menu-async)) (package-delete elt nil 'nosave)) - (error (message (cadr err)))))))) + (error (message "Error trying to delete `%s': %S" + (package-desc-full-name elt) + err))))))) (defun package--update-selected-packages (add remove) "Update the `package-selected-packages' list according to ADD and REMOVE. |
