about summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2021-08-16 09:12:06 -0500
committerCase Duckworth2021-08-16 09:12:06 -0500
commitcff44ea72b930433f3ad6e91e51933bcfd563d5a (patch)
treebe1a245c653c48fdc412dcbd24c4cd7cc667797f /lisp
parentMerge branch 'main' of tildegit.org:acdw/emacs (diff)
downloademacs-cff44ea72b930433f3ad6e91e51933bcfd563d5a.tar.gz
emacs-cff44ea72b930433f3ad6e91e51933bcfd563d5a.zip
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.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw-org.el3
1 files changed, 2 insertions, 1 deletions
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."
272 ;; Ignore drawers 272 ;; Ignore drawers
273 ((or (looking-at org-drawer-regexp) 273 ((or (looking-at org-drawer-regexp)
274 (looking-at org-clock-drawer-re)) 274 (looking-at org-clock-drawer-re))
275 (search-forward ":END:" nil :noerror)) 275 (search-forward ":END:" nil :noerror)
276 (forward-line))
276 ;; Ignore tables 277 ;; Ignore tables
277 ((org-at-table-p) (forward-line)) 278 ((org-at-table-p) (forward-line))
278 ;; Ignore hyperlinks, but count the descriptions 279 ;; Ignore hyperlinks, but count the descriptions