[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/org-drill 9e3a7952a1 205/251: Remove org-drill-free-marker
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/org-drill 9e3a7952a1 205/251: Remove org-drill-free-marker |
Date: |
Mon, 17 Jan 2022 18:59:17 -0500 (EST) |
branch: elpa/org-drill
commit 9e3a7952a15a953ea0b7ee5dbdbb6df948f063ce
Author: Phillip Lord <phillip.lord@russet.org.uk>
Commit: Phillip Lord <phillip.lord@russet.org.uk>
Remove org-drill-free-marker
This function saves no typing once namespaced
---
org-drill.el | 11 ++++-------
1 file changed, 4 insertions(+), 7 deletions(-)
diff --git a/org-drill.el b/org-drill.el
index c9bc59e8b4..f8421d849a 100644
--- a/org-drill.el
+++ b/org-drill.el
@@ -681,9 +681,6 @@ regardless of whether the test was successful.")
(apply 'org-preview-latex-fragment args)))
;;;; Utilities ================================================================
-(defun org-drill-free-marker (m)
- (set-marker m nil))
-
(defmacro org-drill-pop-random (place)
(let ((idx (cl-gensym)))
`(if (null ,place)
@@ -2644,7 +2641,7 @@ all the markers used by Org-Drill will be freed."
(oref session young-mature-entries)
(oref session old-mature-entries))
markers))
- (org-drill-free-marker m)))
+ (set-marker m nil)))
;;; overdue-data is a list of entries, each entry has the form (POS DUE AGE)
;;; where POS is a marker pointing to the start of the entry, and
@@ -2961,7 +2958,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))
- (org-drill-free-marker (oref session current-item)))
+ (set-marker (oref session current-item) nil))
(setf (oref session start-time) (float-time (current-time)))
(setf (oref session done-entries) nil
(oref session current-item) nil)
@@ -3174,7 +3171,7 @@ copy them across."
(if scheduled-time
(org-schedule nil scheduled-time)))))
(remhash id org-drill-dest-id-table)
- (org-drill-free-marker marker)))
+ (set-marker marker nil)))
(t
;; item in SRC has ID, but no matching ID in DEST.
;; It must be a new item that does not exist in DEST.
@@ -3189,7 +3186,7 @@ copy them across."
(maphash (lambda (_id m)
(goto-char m)
(org-drill-strip-entry-data)
- (org-drill-free-marker m))
+ (set-marker m nil))
org-drill-dest-id-table))))
- [nongnu] elpa/org-drill 58b353993c 158/251: Complete namespace cleanliness, (continued)
- [nongnu] elpa/org-drill 58b353993c 158/251: Complete namespace cleanliness, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 77480ae0a2 181/251: Remove arguments from presentation-prompt, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 5a405f5d08 188/251: Fix session call in org-drill-sm-or-leitner, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill c44ca7447b 199/251: Document explainer, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 5b6bb5445c 157/251: Fix broken test, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill b2b7c3f625 175/251: Remove dynamic scoping, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 7a7f9370fa 159/251: Fix byte compilation errors, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill d3695d66f3 173/251: Fix call to session, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill a91c6101b9 201/251: Update variable documentation, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 037b4bfe84 223/251: Fix copyright line, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 9e3a7952a1 205/251: Remove org-drill-free-marker,
ELPA Syncer <=
- [nongnu] elpa/org-drill 4c114489e6 240/251: Release v2.7.0, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill a222b4dfb4 022/251: Many changes:, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill d9488f0f65 031/251: Added tag 2.2 for changeset d9430f6647c9, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill f7e2975556 034/251: - Speed up stripping scheduling data if scope is the current buffer (default)., ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 0eca79a796 036/251: Tiny fix to org-drill-map-entries., ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 65e1290023 038/251: New file-safe user variable: org-drill-scope. Allows customisation of the scope of drill sessions, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 396b3078b7 070/251: Added tag 2.4.2 for changeset 648125435aad, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 6be323d033 055/251: Entries in 'org-drill-card-type-alist' can now take a fourth argument, 'drill-empty-p' (boolean). If true, items of this type are not skipped if their bodies are empty., ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 224a959b26 064/251: Added tag 2.4.0 for changeset 37dd8ae06ded, ELPA Syncer, 2022/01/17
- [nongnu] elpa/org-drill 42e9bf3230 078/251: Added tag 2.4.6 for changeset e7bb422d8cb1, ELPA Syncer, 2022/01/17