diff options
author | Paul Sexton <psexton@xnet.co.nz> | 2011-05-25 20:01:51 +1200 |
---|---|---|
committer | Paul Sexton <psexton@xnet.co.nz> | 2011-05-25 20:01:51 +1200 |
commit | 69ba863ca0668caa38133280dbf7e6f959b8618d (patch) | |
tree | c52b2285c0bafdc2e14576f80a2c5ae19ceacb38 /contrib | |
parent | 34fa86edf5fff3c52337de9bdb1769ec53a74b32 (diff) |
org-drill.el: corrected errors in file (due to problematic merge)
Diffstat (limited to 'contrib')
-rw-r--r-- | contrib/lisp/org-drill.el | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/contrib/lisp/org-drill.el b/contrib/lisp/org-drill.el index 7592f0607..a6a42da03 100644 --- a/contrib/lisp/org-drill.el +++ b/contrib/lisp/org-drill.el @@ -1655,7 +1655,6 @@ items if FORCE-SHOW-FIRST or FORCE-SHOW-LAST is non-nil)." (defun org-drill-present-multicloze-hide-nth (to-hide) "Hide the TO-HIDE'th piece of clozed text. 1 is the first piece. If TO-HIDE is negative, count backwards, so -1 means the last item, -2 -CNT is negative, count backwards, so -1 means the last item, -2 the second to last, etc." (with-hidden-comments (with-hidden-cloze-hints @@ -1681,7 +1680,6 @@ the second to last, etc." (cond ((or (not (plusp match-count)) (> to-hide match-count)) - (and (minusp cnt) (> (abs cnt) match-count))) nil) (t (save-excursion @@ -1694,6 +1692,23 @@ the second to last, etc." (incf cnt) (if (= cnt to-hide) (org-drill-hide-matched-cloze-text))))))) + (org-display-inline-images t) + (org-cycle-hide-drawers 'all) + (prog1 (org-drill-presentation-prompt) + (org-drill-hide-subheadings-if 'org-drill-entry-p) + (org-drill-unhide-clozed-text)))))) + + +(defun org-drill-present-multicloze-hide1 () + "Hides one of the pieces of text that are marked for cloze deletion, +chosen at random." + (org-drill-present-multicloze-hide-n 1)) + + +(defun org-drill-present-multicloze-hide2 () + "Hides two of the pieces of text that are marked for cloze deletion, +chosen at random." + (org-drill-present-multicloze-hide-n 2)) (defun org-drill-present-multicloze-hide-first () |