diff options
| author | Phillip Lord <phillip.lord@russet.org.uk> | 2019-06-22 17:03:47 +0100 |
|---|---|---|
| committer | Phillip Lord <phillip.lord@russet.org.uk> | 2019-06-22 17:03:47 +0100 |
| commit | 2811c3f562d90c31da85653be30e1eefffab93f1 (patch) | |
| tree | fbf6eb90c0374b19646b708117ff0ef459ae34ac | |
| parent | d3695d66f33b42dc72ef02ad622e585797480977 (diff) | |
| download | org-drill-2811c3f562d90c31da85653be30e1eefffab93f1.tar.gz org-drill-2811c3f562d90c31da85653be30e1eefffab93f1.zip | |
Replace dynamic scoping with let
| -rw-r--r-- | org-drill.el | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/org-drill.el b/org-drill.el index 0dad1fd..6322b13 100644 --- a/org-drill.el +++ b/org-drill.el @@ -2659,28 +2659,28 @@ RESUMING-P is true if we are resuming a suspended drill session." nil) (t (org-show-entry) - (setq result (org-drill-entry session)) - (cond - ((null result) - (message "Quit") - (setf (oref session end-pos) :quit) - (cl-return-from org-drill-entries nil)) - ((eql result 'edit) - (setf (oref session end-pos) (point-marker)) - (cl-return-from org-drill-entries nil)) - ((eql result 'skip) - (setf (oref session current-item) nil) - nil) ; skip this item - (t + (let ((result (org-drill-entry session))) (cond - ((<= result org-drill-failure-quality) - (if (oref session again-entries) - (setf (oref session again-entries) - (org-drill-shuffle (oref session again-entries)))) - (org-drill-push-end m (oref session again-entries))) + ((null result) + (message "Quit") + (setf (oref session end-pos) :quit) + (cl-return-from org-drill-entries nil)) + ((eql result 'edit) + (setf (oref session end-pos) (point-marker)) + (cl-return-from org-drill-entries nil)) + ((eql result 'skip) + (setf (oref session current-item) nil) + nil) ; skip this item (t - (push m (oref session done-entries)))) - (setf (oref session current-item) nil)))))))))) + (cond + ((<= result org-drill-failure-quality) + (if (oref session again-entries) + (setf (oref session again-entries) + (org-drill-shuffle (oref session again-entries)))) + (org-drill-push-end m (oref session again-entries))) + (t + (push m (oref session done-entries)))) + (setf (oref session current-item) nil))))))))))) |