forked from mirrors/org-mode
org-depend.el: Fix check for previous-sibling blocker
* contrib/lisp/org-depend.el (org-depend-block-todo): Fix check for previous-sibling blocker. The "previous-sibling" blocker checked the previous visible heading, instead of the true previous sibling.
This commit is contained in:
parent
60eda8e4ec
commit
b3c54c1119
|
@ -388,9 +388,8 @@ this ID property, that entry is also checked."
|
|||
(save-excursion
|
||||
(goto-char pos)
|
||||
;; find the older sibling, exit if no more siblings
|
||||
(condition-case nil
|
||||
(outline-backward-same-level 1)
|
||||
(error (throw 'ignore t)))
|
||||
(unless (org-get-last-sibling)
|
||||
(throw 'ignore t))
|
||||
;; Check if this entry is not yet done and block
|
||||
(unless (org-entry-is-done-p)
|
||||
;; return nil, to indicate that we block the change!
|
||||
|
|
Loading…
Reference in a new issue