Rename condition-case-no-debug to condition-case-unless-debug

This commit is contained in:
Leo Liu 2012-02-10 23:59:29 +08:00
parent 25dec36509
commit 1be3ca5ad7
11 changed files with 44 additions and 16 deletions

View file

@ -1103,7 +1103,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-no-debug nil
(condition-case-unless-debug nil
(package--download-one-archive archive "archive-contents")
(error (message "Failed to download `%s' archive."
(car archive)))))
@ -1608,7 +1608,7 @@ packages marked for deletion are removed."
delete-list
", "))))
(dolist (elt delete-list)
(condition-case-no-debug err
(condition-case-unless-debug err
(package-delete (car elt) (cdr elt))
(error (message (cadr err)))))
(error "Aborted")))