From 8974c4e56c18ea42326de1971e325c0c95657f7e Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 6 Oct 2021 16:50:40 -0500
Subject: Ignore DEADLINE and SCHEDULED in acdw-org/count-words-stupidly

---
 lisp/acdw-org.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'lisp/acdw-org.el')

diff --git a/lisp/acdw-org.el b/lisp/acdw-org.el
index 8821b28..3358365 100644
--- a/lisp/acdw-org.el
+++ b/lisp/acdw-org.el
@@ -299,11 +299,15 @@ instead of the true count."
                   ;; Ignore headings
                   ((or (org-at-heading-p))
                    (forward-line))
-                  ;; Ignore drawers
+                  ;; Ignore property and log drawers
                   ((or (looking-at org-drawer-regexp)
                        (looking-at org-clock-drawer-re))
                    (search-forward ":END:" nil :noerror)
                    (forward-line))
+                  ;; Ignore DEADLINE and SCHEDULED keywords
+                  ((or (looking-at org-deadline-regexp)
+                       (looking-at org-scheduled-regexp))
+                   (forward-line))
                   ;; Ignore tables
                   ((org-at-table-p) (forward-line))
                   ;; Ignore hyperlinks, but count the descriptions
-- 
cgit 1.4.1-21-gabe81