* lisp/emacs-lisp/package.el: Slightly better error reporting.

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index b3f1f2fc759b0213de895a53bde77110a89c0397..cf1509947bd335598af8e735472297f8e658c379 100644 (file)
--- 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.