modes/ora-org.el (ora-org-done-p): Ignore error from org-back-to-heading

abo-abo · Aug 9, 2021 · 659236d · 659236d
1 parent 366ad5a
commit 659236d
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/modes/ora-org.el b/modes/ora-org.el
@@ -661,8 +661,12 @@ _y_: ?y? year       _q_: quit           _L__l__c_: log = ?l?"
 
 (defun ora-org-done-p ()
   (save-excursion
-    (org-back-to-heading)
-    (looking-at "\\*+ \\(DONE\\|CANCELLED\\)")))
+    (when (condition-case nil
+              (progn
+                (org-back-to-heading)
+                t)
+            (error nil))
+      (looking-at "\\*+ \\(DONE\\|DROP\\)"))))
 
 (defun ora-org-delete-element (&optional context)
   (setq context (or context (org-element-context)))