summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLeon Rische <leon.rische@me.com>2020-05-25 12:40:20 +0200
committerLeon Rische <leon.rische@me.com>2020-05-25 12:40:20 +0200
commit91887a89fb732fac80f53fe9e2786b06f1583e84 (patch)
tree8fa83c58400d93b80e761ad7eaa49dcf63847f4c
parent76080c6b670d8dd81fa4faffe7840e63f2d95ebd (diff)
Re-raise errors after quitting review
-rw-r--r--org-fc.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/org-fc.el b/org-fc.el
index 5e9d573..388ab2b 100644
--- a/org-fc.el
+++ b/org-fc.el
@@ -1708,8 +1708,8 @@ Valid contexts:
(org-fc-review-rate-hydra/body)
(org-fc-review-flip-hydra/body))))))
(error
- (message "Error during review: %s" (error-message-string err))
- (org-fc-review-quit)))
+ (org-fc-review-quit)
+ (signal (car err) (cdr err))))
(message "Review Done")
(org-fc-review-quit)))
@@ -1759,8 +1759,8 @@ same ID as the current card in the session."
(funcall (org-fc-type-flip-fn type))
(org-fc-review-rate-hydra/body)))
(error
- (message "Error flipping card: %s" (error-message-string err))
- (org-fc-review-quit))))
+ (org-fc-review-quit)
+ (signal (car err) (cdr err)))))
;; TODO: Remove -card suffix
(defun org-fc-review-rate-card (rating)
@@ -1781,8 +1781,8 @@ same ID as the current card in the session."
(kill-buffer))
(org-fc-review-next-card)))
(error
- (message "Error rating card: %s" (error-message-string err))
- (org-fc-review-quit))))
+ (org-fc-review-quit)
+ (signal (car err) (cdr err)))))
(defun org-fc-review-suspend-card ()
"Suspend card and proceed to next."