diff options
| author | Phillip Lord <phillip.lord@russet.org.uk> | 2019-06-22 12:36:54 +0100 |
|---|---|---|
| committer | Phillip Lord <phillip.lord@russet.org.uk> | 2019-06-22 12:36:54 +0100 |
| commit | 4300ef9d4c70ce47bee196ee49b873fe8603ff66 (patch) | |
| tree | 950a8445b212552accd7ad7a7e65d766c0e14696 | |
| parent | 5d4f60d49d84ed0c22cfc1be0a84e87a82c1c5b3 (diff) | |
| download | org-drill-4300ef9d4c70ce47bee196ee49b873fe8603ff66.tar.gz org-drill-4300ef9d4c70ce47bee196ee49b873fe8603ff66.zip | |
Fix broken form in org-drill-resume
| -rw-r--r-- | org-drill.el | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/org-drill.el b/org-drill.el index c5b3366..6939405 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 () |
