Changeset main,17


Ignore:
Timestamp:
06/06/2020 01:03:50 AM (5 years ago)
Author:
David Owen <dsowen@…>
branch-nick:
main
revision id:
dsowen@fugue88.ws-20200606010350-a3q2d58d2e057m02
Message:

Fix hiding

File:
1 edited

Legend:

Unmodified
Added
Removed
  • main/org-autofocus.el

    r16 r17  
    134134
    135135      (save-excursion
    136         ;; Go to previous mark, if any
     136        ;; Go to previous mark, if any, or first task otherwise.
    137137        (while (and (= (forward-line -1) 0)
    138                     (setq bol (line-beginning-position))
    139                     (get-text-property bol 'type)
     138                    (get-text-property (point) 'type)
     139                    (setq bol (point))
    140140                    (not (org-af--marked-p bol))))
     141        (goto-char bol)
    141142
    142143        (when (org-af--marked-p bol)
     
    146147
    147148        (forward-line)
    148         (setq bol (line-beginning-position))
     149        (setq bol (point))
    149150        (if marked
    150151            (add-text-properties bol task-point '(category org-af-hidden))
Note: See TracChangeset for help on using the changeset viewer.