diff options
| author | Case Duckworth | 2021-10-06 16:50:40 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-10-06 16:50:40 -0500 |
| commit | 8974c4e56c18ea42326de1971e325c0c95657f7e (patch) | |
| tree | a00a85c39a05d42c2341ac4fa5b558204a65c940 /lisp | |
| parent | Un-customize the message-header face (diff) | |
| download | emacs-8974c4e56c18ea42326de1971e325c0c95657f7e.tar.gz emacs-8974c4e56c18ea42326de1971e325c0c95657f7e.zip | |
Ignore DEADLINE and SCHEDULED in acdw-org/count-words-stupidly
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/acdw-org.el | 6 |
1 files changed, 5 insertions, 1 deletions
| 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." | |||
| 299 | ;; Ignore headings | 299 | ;; Ignore headings |
| 300 | ((or (org-at-heading-p)) | 300 | ((or (org-at-heading-p)) |
| 301 | (forward-line)) | 301 | (forward-line)) |
| 302 | ;; Ignore drawers | 302 | ;; Ignore property and log drawers |
| 303 | ((or (looking-at org-drawer-regexp) | 303 | ((or (looking-at org-drawer-regexp) |
| 304 | (looking-at org-clock-drawer-re)) | 304 | (looking-at org-clock-drawer-re)) |
| 305 | (search-forward ":END:" nil :noerror) | 305 | (search-forward ":END:" nil :noerror) |
| 306 | (forward-line)) | 306 | (forward-line)) |
| 307 | ;; Ignore DEADLINE and SCHEDULED keywords | ||
| 308 | ((or (looking-at org-deadline-regexp) | ||
| 309 | (looking-at org-scheduled-regexp)) | ||
| 310 | (forward-line)) | ||
| 307 | ;; Ignore tables | 311 | ;; Ignore tables |
| 308 | ((org-at-table-p) (forward-line)) | 312 | ((org-at-table-p) (forward-line)) |
| 309 | ;; Ignore hyperlinks, but count the descriptions | 313 | ;; Ignore hyperlinks, but count the descriptions |