Use condition-case-no-debug in package.el.

* lisp/emacs-lisp/package.el (package-refresh-contents)
(package-menu-execute): Use condition-case-no-debug.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ca21c9ebf2c..7963e3432cb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-03-08  Chong Yidong  <cyd@stupidchicken.com>
+
+        * emacs-lisp/package.el (package-refresh-contents)
+        (package-menu-execute): Use condition-case-no-debug.
+
 2011-03-08  Michael Albinus  <michael.albinus@gmx.de>
 
         * simple.el (shell-command-to-string): Use `process-file'.
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 397feb45633..d90164b5a95 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1040,7 +1040,7 @@ makes them available for download."
   (unless (file-exists-p package-user-dir)
     (make-directory package-user-dir t))
   (dolist (archive package-archives)
-    (condition-case nil
+    (condition-case-no-debug nil
         (package--download-one-archive archive "archive-contents")
       (error (message "Failed to download `%s' archive."
                       (car archive)))))
@@ -1468,7 +1468,7 @@ packages marked for deletion are removed."
                                 delete-list
                                 ", "))))
           (dolist (elt delete-list)
-            (condition-case err
+            (condition-case-no-debug err
                 (package-delete (car elt) (cdr elt))
               (error (message (cadr err)))))
         (error "Aborted")))