From 515de2e32145b54e9ccf5cc8f74f1773e9652041 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 8 Mar 2011 12:11:19 -0500 Subject: [PATCH] Use condition-case-no-debug in package.el. * lisp/emacs-lisp/package.el (package-refresh-contents) (package-menu-execute): Use condition-case-no-debug. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/package.el | 4 ++-- 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 + + * emacs-lisp/package.el (package-refresh-contents) + (package-menu-execute): Use condition-case-no-debug. + 2011-03-08 Michael Albinus * 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"))) -- 2.39.5