Changeset main,17

Timestamp:

06/06/2020 01:03:50 AM (4 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

main

revision id:

dsowen@fugue88.ws-20200606010350-a3q2d58d2e057m02

Message:

Fix hiding

File:

• main/org-autofocus.el (modified) (2 diffs)

main/org-autofocus.el

@@ -134 +134 @@
 
       (save-excursion
-        ;; Go to previous mark, if any
+        ;; Go to previous mark, if any, or first task otherwise.
         (while (and (= (forward-line -1) 0)
-                    (setq bol (line-beginning-position))
-                    (get-text-property bol 'type)
+                    (get-text-property (point) 'type)
+                    (setq bol (point))
                     (not (org-af--marked-p bol))))
+        (goto-char bol)
 
         (when (org-af--marked-p bol)
@@ -146 +147 @@
 
         (forward-line)
-        (setq bol (line-beginning-position))
+        (setq bol (point))
         (if marked
             (add-text-properties bol task-point '(category org-af-hidden))