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
|
(save-excursion
|
||||||
(goto-char pos)
|
(goto-char pos)
|
||||||
;; find the older sibling, exit if no more siblings
|
;; find the older sibling, exit if no more siblings
|
||||||
(condition-case nil
|
(unless (org-get-last-sibling)
|
||||||
(outline-backward-same-level 1)
|
(throw 'ignore t))
|
||||||
(error (throw 'ignore t)))
|
|
||||||
;; Check if this entry is not yet done and block
|
;; Check if this entry is not yet done and block
|
||||||
(unless (org-entry-is-done-p)
|
(unless (org-entry-is-done-p)
|
||||||
;; return nil, to indicate that we block the change!
|
;; return nil, to indicate that we block the change!
|
||||||
|
|
Loading…
Reference in New Issue