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:
Yuri D. Lensky 2017-07-10 16:21:52 -07:00 committed by Nicolas Goaziou
parent 60eda8e4ec
commit b3c54c1119
1 changed files with 2 additions and 3 deletions

View File

@ -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!