summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorArtur Malabarba <bruce.connor.am@gmail.com>2015-06-17 20:33:08 +0100
committerArtur Malabarba <bruce.connor.am@gmail.com>2015-06-17 20:33:38 +0100
commit5dc72bc4ba6963c5896daa42e6193d6ae667dc1d (patch)
tree40cf778dc9aef8f493e3615ba69f025faf45f233 /lisp/emacs-lisp
parent82585144b6e98ff0d9294442b1226d8be8298d7d (diff)
downloademacs-5dc72bc4ba6963c5896daa42e6193d6ae667dc1d.tar.gz
* lisp/emacs-lisp/package.el: Slightly better error reporting.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/package.el12
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.