From 72c774b55dcb5408d9ebfff7905be46bbcb61372 Mon Sep 17 00:00:00 2001 From: Phillip Lord Date: Mon, 17 Jun 2019 18:19:22 +0100 Subject: Rename free-marker into namespace --- org-drill.el | 10 +++++----- 1 file 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*)))) -- cgit v1.2.3