branch: elpa/org-drill
commit 4300ef9d4c70ce47bee196ee49b873fe8603ff66
Author: Phillip Lord <[email protected]>
Commit: Phillip Lord <[email protected]>
Fix broken form in org-drill-resume
---
org-drill.el | 26 +++++++++++++-------------
1 file changed, 13 insertions(+), 13 deletions(-)
diff --git a/org-drill.el b/org-drill.el
index c5b3366bca..6939405089 100644
--- a/org-drill.el
+++ b/org-drill.el
@@ -3140,20 +3140,20 @@ scan will be performed."
"Resume a suspended drill session. Sessions are suspended by
exiting them with the `edit' or `quit' options."
(interactive)
- (let ((session org-drill-last-session)))
- (cond
- ((org-drill-entries-pending-p session)
- (org-drill nil nil t))
- ((and (cl-plusp (org-drill-pending-entry-count session))
- ;; Current drill session is finished, but there are still
- ;; more items which need to be reviewed.
- (y-or-n-p (format
- "You have finished the drill session. However, %d items
still
+ (let ((session org-drill-last-session))
+ (cond
+ ((org-drill-entries-pending-p session)
+ (org-drill nil nil t))
+ ((and (cl-plusp (org-drill-pending-entry-count session))
+ ;; Current drill session is finished, but there are still
+ ;; more items which need to be reviewed.
+ (y-or-n-p (format
+ "You have finished the drill session. However, %d items
still
need reviewing. Start a new drill session? "
- (org-drill-pending-entry-count session))))
- (org-drill-again))
- (t
- (message "You have finished the drill session."))))
+ (org-drill-pending-entry-count session))))
+ (org-drill-again))
+ (t
+ (message "You have finished the drill session.")))))
(defun org-drill-relearn-item ()
