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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ca21c9ebf2ce459be5e4771f4bb3682d7a3642fb..7963e3432cb66031dfa74235460bdb0c87a5e302 100644 (file)
--- 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 397feb45633529939d44eec7a1a83c2f31883cf1..d90164b5a954888a2c93bb9746c73a5e9ce84aff 100644 (file)
--- 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")))