diff options
| author | Phillip Lord <phillip.lord@russet.org.uk> | 2019-06-22 17:24:55 +0100 |
|---|---|---|
| committer | Phillip Lord <phillip.lord@russet.org.uk> | 2019-06-22 17:24:55 +0100 |
| commit | b0ee414c16ca68aa633c4ae10ec4df4384bbdedb (patch) | |
| tree | 2920aa8ec9dfe229a5bb081417ea5d4b22a10d33 /org-drill.el | |
| parent | 0eaacf2a2d83aa0c2fdb39f56c2eedb87d11624e (diff) | |
| download | org-drill-b0ee414c16ca68aa633c4ae10ec4df4384bbdedb.tar.gz org-drill-b0ee414c16ca68aa633c4ae10ec4df4384bbdedb.zip | |
Fix call to removed variable
Diffstat (limited to 'org-drill.el')
| -rw-r--r-- | org-drill.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/org-drill.el b/org-drill.el index dc5cf44..bb437b2 100644 --- a/org-drill.el +++ b/org-drill.el @@ -1837,7 +1837,7 @@ Consider reformulating the item to make it easier to remember.\n" (org-drill-presentation-timer-cancel) (oref session exit-kind))))) -(cl-defun org-drill-presentation-prompt-for-string (prompt) +(cl-defun org-drill-presentation-prompt-for-string (session prompt) "Create a card prompt with a timer and user-specified menu. Arguments: @@ -1862,7 +1862,8 @@ You seem to be having a lot of trouble memorising this item. Consider reformulating the item to make it easier to remember.\n" 'face '(:foreground "red")) full-prompt))) - (setq drill-typed-answer (read-string full-prompt nil nil nil t)))) + (setf (oref session drill-typed-answer) + (read-string full-prompt nil nil nil t)))) (defun org-pos-in-regexp (pos regexp &optional nlines) @@ -2127,7 +2128,7 @@ Note: does not actually alter the item." (funcall reschedule-fn session)))))) -(defun org-drill-present-simple-card-with-typed-answer () +(defun org-drill-present-simple-card-with-typed-answer (session) (with-hidden-comments (with-hidden-cloze-hints (with-hidden-cloze-text @@ -2136,7 +2137,7 @@ Note: does not actually alter the item." (ignore-errors (org-display-inline-images t)) (org-cycle-hide-drawers 'all) - (prog1 (org-drill-presentation-prompt-for-string nil) + (prog1 (org-drill-presentation-prompt-for-string session nil) (org-drill-hide-subheadings-if 'org-drill-entry-p)))))) |