diff options
| author | Case Duckworth | 2021-08-16 09:12:06 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-08-16 09:12:06 -0500 |
| commit | cff44ea72b930433f3ad6e91e51933bcfd563d5a (patch) | |
| tree | be1a245c653c48fdc412dcbd24c4cd7cc667797f | |
| parent | Merge branch 'main' of tildegit.org:acdw/emacs (diff) | |
| download | emacs-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.
| -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 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 |