diff options
-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 |