diff options
| -rw-r--r-- | org-drill.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/org-drill.el b/org-drill.el index 83adc9f..611c0c9 100644 --- a/org-drill.el +++ b/org-drill.el @@ -708,7 +708,7 @@ regardless of whether the test was successful.") ;;;; Utilities ================================================================ -(defun free-marker (m) +(defun org-drill-free-marker (m) (set-marker m nil)) @@ -2828,7 +2828,7 @@ all the markers used by Org-Drill will be freed." (oref session young-mature-entries) (oref session old-mature-entries)) markers)) - (free-marker m))) + (org-drill-free-marker m))) ;;; overdue-data is a list of entries, each entry has the form (POS DUE AGE) @@ -3165,7 +3165,7 @@ scan will be performed." ((cl-plusp (org-drill-pending-entry-count session)) (org-drill-free-markers session (oref session done-entries)) (if (markerp (oref session current-item)) - (free-marker (oref session current-item))) + (org-drill-free-marker (oref session current-item))) (setf (oref session start-time) (float-time (current-time))) (setf (oref session done-entries) nil (oref session current-item) nil) @@ -3386,7 +3386,7 @@ copy them across." (if scheduled-time (org-schedule nil scheduled-time))))) (remhash id *org-drill-dest-id-table*) - (free-marker marker))) + (org-drill-free-marker marker))) (t ;; item in SRC has ID, but no matching ID in DEST. ;; It must be a new item that does not exist in DEST. @@ -3401,7 +3401,7 @@ copy them across." (maphash (lambda (id m) (goto-char m) (org-drill-strip-entry-data) - (free-marker m)) + (org-drill-free-marker m)) *org-drill-dest-id-table*)))) |