Browse Source

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.
Yuri D. Lensky 7 years ago
parent
commit
b3c54c1119
1 changed files with 2 additions and 3 deletions
  1. 2 3
      contrib/lisp/org-depend.el

+ 2 - 3
contrib/lisp/org-depend.el

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