[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 26d9da5 1/3: [gnus-mock] Don't completely swallow errors
From: |
Eric Abrahamsen |
Subject: |
[elpa] master 26d9da5 1/3: [gnus-mock] Don't completely swallow errors |
Date: |
Tue, 4 Dec 2018 14:13:59 -0500 (EST) |
branch: master
commit 26d9da530bd93885c17352189ada9ef4eac88153
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
[gnus-mock] Don't completely swallow errors
* packages/gnus-mock/gnus-mock.el (gnus-mock-start): And use
`condition-case-unless-debug'.
---
packages/gnus-mock/gnus-mock.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/packages/gnus-mock/gnus-mock.el b/packages/gnus-mock/gnus-mock.el
index b11c15f..0874200 100644
--- a/packages/gnus-mock/gnus-mock.el
+++ b/packages/gnus-mock/gnus-mock.el
@@ -139,7 +139,7 @@ Gnus settings pre-loaded. Any of the normal Gnus entry
points
will start a mock Gnus session."
(interactive)
(let ((mock-tmp-dir (make-temp-file "emacs-gnus-mock-" t)))
- (condition-case nil
+ (condition-case-unless-debug err
(let ((init-file (expand-file-name "init.el" mock-tmp-dir)))
(with-temp-buffer
(let ((standard-output (current-buffer))
@@ -261,7 +261,8 @@ will start a mock Gnus session."
:stderr "*gnus mock errors*"))
(error (when (and gnus-mock-cleanup-p
(file-exists-p mock-tmp-dir))
- (delete-directory mock-tmp-dir t))))))
+ (delete-directory mock-tmp-dir t))
+ (signal (car err) (cdr err))))))
(provide 'gnus-mock)
;;; gnus-mock.el ends here