mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

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

Browse Source 
* lisp/emacs-lisp/package.el (package-refresh-contents)
(package-menu-execute): Use condition-case-no-debug.
This commit is contained in:
Chong Yidong 2011-03-08 12:11:19 -05:00
parent a505754642
commit 515de2e321
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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'.

4
lisp/emacs-lisp/package.el
View File

@ -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")))