diff options
| author | Leo Liu <sdl.web@gmail.com> | 2012-02-10 23:59:29 +0800 |
|---|---|---|
| committer | Leo Liu <sdl.web@gmail.com> | 2012-02-10 23:59:29 +0800 |
| commit | 1be3ca5ad7173a1b1e2ca4065185c207a41883c9 (patch) | |
| tree | 210644035309e3487fc729a5dd2bd2deda0bbbe2 /lisp/emacs-lisp | |
| parent | 25dec3650947892e638be48220024a7d1b1d8be8 (diff) | |
| download | emacs-1be3ca5ad7173a1b1e2ca4065185c207a41883c9.tar.gz emacs-1be3ca5ad7173a1b1e2ca4065185c207a41883c9.tar.bz2 emacs-1be3ca5ad7173a1b1e2ca4065185c207a41883c9.zip | |
Rename condition-case-no-debug to condition-case-unless-debug
Diffstat (limited to 'lisp/emacs-lisp')
| -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 317fa1fd23d..d80454ba269 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -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"))) |