Changeset main,18
- Timestamp:
- 06/06/2020 01:04:16 AM (5 years ago)
- branch-nick:
- main
- revision id:
- dsowen@fugue88.ws-20200606010416-6ms2uo9nin6axt19
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/org-autofocus.el
r17 r18 75 75 (defun org-af--mark (point) 76 76 "Mark the task at POINT." 77 (add-text-properties point (1+ point) '(category org-af-marked))) 77 (let ((o (make-overlay point (1+ point)))) 78 (overlay-put o 'category org-af-marked))) 78 79 79 80 (defun org-af--unmark (point) 80 81 "Unmark the task at POINT." 81 (remove- text-properties point (1+ point) '(category org-af-marked)))82 (remove-overlays point (1+ point) org-af-marked t)) 82 83 83 84 (defun org-af--marked-p (point) 84 85 "Test whether the task at POINT is marked." 85 (get- text-property point 'org-af-marked))86 (get-char-property point 'org-af-marked)) 86 87 87 88
Note: See TracChangeset
for help on using the changeset viewer.