1
0
Fork 0

Fix global skip function for org-mode

This commit is contained in:
Tom Willemse 2019-04-16 23:45:48 -07:00
parent a44965490d
commit e8b70a8549

View file

@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org> ;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local ;; Keywords: local
;; Version: 20190416223342 ;; Version: 20190416233838
;; Package-Requires: (org-plus-contrib org-bullets hydra) ;; Package-Requires: (org-plus-contrib org-bullets hydra)
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
@ -53,7 +53,7 @@ Only tasks of a level greater than 3 are considered. A task has a
predecessor if there is a non-DONE sibling defined before it." predecessor if there is a non-DONE sibling defined before it."
(let ((point (point))) (let ((point (point)))
(save-excursion (save-excursion
(org-backward-heading-same-level 1) (org-backward-heading-same-level 1 :invisible-ok)
(seq-let [level _ keyword] (org-heading-components) (seq-let [level _ keyword] (org-heading-components)
(not (or (< level 3) (not (or (< level 3)
(= point (point)) (= point (point))