[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r103593: Use condition-case-no-debug
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r103593: Use condition-case-no-debug in package.el. |
Date: |
Tue, 08 Mar 2011 12:11:19 -0500 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
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")))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r103593: Use condition-case-no-debug in package.el.,
Chong Yidong <=