diff options
author | Case Duckworth | 2021-10-12 18:40:17 -0500 |
---|---|---|
committer | Case Duckworth | 2021-10-12 18:40:17 -0500 |
commit | 1433a3916049615cc3ab4880939b3842c9242c29 (patch) | |
tree | f7e9bb8a63ba5121de80287283b832e8e8c58c85 /lisp/acdw-org.el | |
parent | Configure popper.el (diff) | |
download | emacs-1433a3916049615cc3ab4880939b3842c9242c29.tar.gz emacs-1433a3916049615cc3ab4880939b3842c9242c29.zip |
totally unhelpful commit message
;)
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)))) |