diff options
Diffstat (limited to 'lisp/acdw-org.el')
| -rw-r--r-- | lisp/acdw-org.el | 3 |
1 files changed, 2 insertions, 1 deletions
| diff --git a/lisp/acdw-org.el b/lisp/acdw-org.el index a1558a2..f0a1d49 100644 --- a/lisp/acdw-org.el +++ b/lisp/acdw-org.el | |||
| @@ -465,7 +465,8 @@ probably abandon it at some point for a better solution (see: | |||
| 465 | (save-excursion | 465 | (save-excursion |
| 466 | (save-match-data | 466 | (save-match-data |
| 467 | (widen) | 467 | (widen) |
| 468 | (while (not (org-entry-is-todo-p)) | 468 | (while (not (or (org-entry-is-todo-p) |
| 469 | (org-entry-is-done-p))) | ||
| 469 | ;; TODO: need a better error message | 470 | ;; TODO: need a better error message |
| 470 | (org-previous-visible-heading 1)) | 471 | (org-previous-visible-heading 1)) |
| 471 | (org-narrow-to-subtree)))) | 472 | (org-narrow-to-subtree)))) |