branch: elpa/org-drill
commit 0239ffd27aa46367a0b82834e9936c72ab4fb752
Author: Phillip Lord <[email protected]>
Commit: Phillip Lord <[email protected]>
Remove unused definitions
---
org-drill.el | 25 ++-----------------------
1 file changed, 2 insertions(+), 23 deletions(-)
diff --git a/org-drill.el b/org-drill.el
index d69c8949e6..fdefe8f54a 100644
--- a/org-drill.el
+++ b/org-drill.el
@@ -2074,7 +2074,7 @@ Note: does not actually alter the item."
;; (zerop (length (org-drill-get-entry-text))))
;; This version is about 5x faster than the old version, above.
-(defun org-entry-empty-p ()
+(defun org-drill-entry-empty-p ()
(save-excursion
(org-back-to-heading t)
(let ((lim (save-excursion
@@ -2085,9 +2085,6 @@ Note: does not actually alter the item."
(or (>= (point) lim)
(null (re-search-forward "[[:graph:]]" lim t))))))
-(defun org-drill-entry-empty-p () (org-entry-empty-p))
-
-
;;; Presentation functions ====================================================
;;
;; Each of these is called with point on topic heading. Each needs to show the
@@ -2454,24 +2451,6 @@ If ANSWER is supplied, set the session slot
`drill-answer' to its value."
(prog1 (org-drill-presentation-prompt session)
(org-drill-hide-subheadings-if 'org-drill-entry-p)))))
-
-(defun org-drill-present-card-using-multiple-overlays (session replacements
&optional answer)
- "TEXTS is a list of valid values for the 'display' text property.
-Present these overlays, in sequence, as the only
-visible content of the card.
-If ANSWER is supplied, set the session slot `drill-answer' to its value."
- (if answer (setf (oref session drill-answer) answer))
- (with-hidden-comments
- (with-replaced-entry-text-multi
- replacements
- (org-drill-hide-all-subheadings-except nil)
- (org-cycle-hide-drawers 'all)
- (ignore-errors
- (org-display-inline-images t))
- (prog1 (org-drill-presentation-prompt session)
- (org-drill-hide-subheadings-if 'org-drill-entry-p)))))
-
-
(defun org-drill-entry (session)
"Present the current topic for interactive review, as in `org-drill'.
Review will occur regardless of whether the topic is due for review or whether
@@ -2884,7 +2863,7 @@ STATUS is one of the following values:
(cond
((not (org-drill-entry-p))
nil)
- ((and (org-entry-empty-p)
+ ((and (org-drill-entry-empty-p)
(let* ((card-type (org-entry-get (point) "DRILL_CARD_TYPE" nil))
(dat (cdr (assoc card-type org-drill-card-type-alist))))
(or (null card-type)
