diff options
author | Leon Rische <leon.rische@me.com> | 2020-05-25 12:40:20 +0200 |
---|---|---|
committer | Leon Rische <leon.rische@me.com> | 2020-05-25 12:40:20 +0200 |
commit | 91887a89fb732fac80f53fe9e2786b06f1583e84 (patch) | |
tree | 8fa83c58400d93b80e761ad7eaa49dcf63847f4c | |
parent | 76080c6b670d8dd81fa4faffe7840e63f2d95ebd (diff) |
Re-raise errors after quitting review
-rw-r--r-- | org-fc.el | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -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." |