From cff44ea72b930433f3ad6e91e51933bcfd563d5a Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 16 Aug 2021 09:12:06 -0500
Subject: Correct drawer-ignoring logic in `acdw-org/count-words-stupidly'

After finding the :END: of the drawer, the point is (I think) just at the end
of :END:, meaning it won't catch the next drawer if there's another
one.  (forward-line) fixes that issue.
---
 lisp/acdw-org.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/lisp/acdw-org.el b/lisp/acdw-org.el
index f8f23c6..123c701 100644
--- a/lisp/acdw-org.el
+++ b/lisp/acdw-org.el
@@ -272,7 +272,8 @@ instead of the true count."
                   ;; Ignore drawers
                   ((or (looking-at org-drawer-regexp)
                        (looking-at org-clock-drawer-re))
-                   (search-forward ":END:" nil :noerror))
+                   (search-forward ":END:" nil :noerror)
+                   (forward-line))
                   ;; Ignore tables
                   ((org-at-table-p) (forward-line))
                   ;; Ignore hyperlinks, but count the descriptions
-- 
cgit 1.4.1-21-gabe81