Changeset main,18

Timestamp:

06/06/2020 01:04:16 AM (4 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

main

revision id:

dsowen@fugue88.ws-20200606010416-6ms2uo9nin6axt19

Message:

Switch to overlay for marking

File:

• main/org-autofocus.el (modified) (1 diff)

main/org-autofocus.el

@@ -75 +75 @@
 (defun org-af--mark (point)
   "Mark the task at POINT."
-  (add-text-properties point (1+ point) '(category org-af-marked)))
+  (let ((o (make-overlay point (1+ point))))
+    (overlay-put o 'category org-af-marked)))
 
 (defun org-af--unmark (point)
   "Unmark the task at POINT."
-  (remove-text-properties point (1+ point) '(category org-af-marked)))
+  (remove-overlays point (1+ point) org-af-marked t))
 
 (defun org-af--marked-p (point)
   "Test whether the task at POINT is marked."
-  (get-text-property point 'org-af-marked))
+  (get-char-property point 'org-af-marked))