diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2011-03-08 12:11:19 -0500 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2011-03-08 12:11:19 -0500 |
| commit | 515de2e32145b54e9ccf5cc8f74f1773e9652041 (patch) | |
| tree | 3c5140c60e80032d0d23f5896a0793492306e914 /lisp/emacs-lisp/package.el | |
| parent | a50575464256f7d77914548c520255e72950803c (diff) | |
| download | emacs-515de2e32145b54e9ccf5cc8f74f1773e9652041.tar.gz emacs-515de2e32145b54e9ccf5cc8f74f1773e9652041.tar.bz2 emacs-515de2e32145b54e9ccf5cc8f74f1773e9652041.zip | |
Use condition-case-no-debug in package.el.
* lisp/emacs-lisp/package.el (package-refresh-contents)
(package-menu-execute): Use condition-case-no-debug.
Diffstat (limited to 'lisp/emacs-lisp/package.el')
| -rw-r--r-- | lisp/emacs-lisp/package.el | 4 |
1 files changed, 2 insertions, 2 deletions
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"))) |