[Emacs-diffs] /srv/bzr/emacs/trunk r103593: Use condition-case-no-debug in package.el.

[Chong Yidong]

------------------------------------------------------------
revno: 103593
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Tue 2011-03-08 12:11:19 -0500
message:
  Use condition-case-no-debug in package.el.
  
  * lisp/emacs-lisp/package.el (package-refresh-contents)
  (package-menu-execute): Use condition-case-no-debug.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/package.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-03-08 12:58:40 +0000
+++ b/lisp/ChangeLog    2011-03-08 17:11:19 +0000
@@ -1,3 +1,8 @@
+2011-03-08  Chong Yidong  <address@hidden>
+
+       * emacs-lisp/package.el (package-refresh-contents)
+       (package-menu-execute): Use condition-case-no-debug.
+
 2011-03-08  Michael Albinus  <address@hidden>
 
        * simple.el (shell-command-to-string): Use `process-file'.

=== modified file 'lisp/emacs-lisp/package.el'
--- a/lisp/emacs-lisp/package.el        2011-03-08 12:58:40 +0000
+++ b/lisp/emacs-lisp/package.el        2011-03-08 17:11:19 +0000
@@ -1040,7 +1040,7 @@
   (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 @@
                                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")))