diff options
| author | Phillip Lord <phillip.lord@russet.org.uk> | 2019-06-22 17:22:02 +0100 |
|---|---|---|
| committer | Phillip Lord <phillip.lord@russet.org.uk> | 2019-06-22 17:22:02 +0100 |
| commit | b2b7c3f625436367ca5a0cdec6628af16a60ad26 (patch) | |
| tree | fc469e495dec1507300a8c814bafc9c74a2fe5a6 | |
| parent | 2811c3f562d90c31da85653be30e1eefffab93f1 (diff) | |
| download | org-drill-b2b7c3f625436367ca5a0cdec6628af16a60ad26.tar.gz org-drill-b2b7c3f625436367ca5a0cdec6628af16a60ad26.zip | |
Remove dynamic scoping
| -rw-r--r-- | org-drill.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/org-drill.el b/org-drill.el index 6322b13..35439e8 100644 --- a/org-drill.el +++ b/org-drill.el @@ -2479,7 +2479,6 @@ See `org-drill' for more details." ;; (org-back-to-heading)) (let ((card-type (org-entry-get (point) "DRILL_CARD_TYPE" t)) (answer-fn 'org-drill-present-default-answer) - (present-empty-cards nil) (cont nil) ;; fontification functions in `outline-view-change-hook' can cause big ;; slowdowns, so we temporarily bind this variable to nil here. @@ -2496,7 +2495,6 @@ See `org-drill' for more details." (if (listp presentation-fn) (cl-psetq answer-fn (or (cl-second presentation-fn) 'org-drill-present-default-answer) - present-empty-cards (cl-third presentation-fn) presentation-fn (cl-first presentation-fn))) (let* ((tags (org-get-tags)) (rtn @@ -2509,7 +2507,7 @@ See `org-drill' for more details." (t (mapc (apply-partially 'org-drill-card-tag-caller 1) - (org-get-tags)) + tags) (setq cont (funcall presentation-fn session)) (cond ((not cont) @@ -2523,11 +2521,11 @@ See `org-drill' for more details." (save-excursion (mapc (apply-partially 'org-drill-card-tag-caller 2) - (org-get-tags)) + tags) (funcall answer-fn session complete-func)))))))) (mapc (apply-partially 'org-drill-card-tag-caller 3) - (org-get-tags)) + tags) (cl-incf org-drill-cards-in-this-emacs) (org-remove-latex-fragment-image-overlays) rtn)))))) |