diff options
| author | Case Duckworth | 2021-09-28 10:01:38 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-09-28 10:01:38 -0500 |
| commit | 0508ae9e42e781928a755a8d8a11513dfcbf0ae4 (patch) | |
| tree | b05777bd7775d6b278139422eecaa2897f13cb66 | |
| parent | Install super-save-mode (diff) | |
| download | emacs-0508ae9e42e781928a755a8d8a11513dfcbf0ae4.tar.gz emacs-0508ae9e42e781928a755a8d8a11513dfcbf0ae4.zip | |
Ignore blank lines when counting words stupidly
| -rw-r--r-- | lisp/acdw-org.el | 3 |
1 files changed, 3 insertions, 0 deletions
| diff --git a/lisp/acdw-org.el b/lisp/acdw-org.el index f210301..96f3f69 100644 --- a/lisp/acdw-org.el +++ b/lisp/acdw-org.el | |||
| @@ -317,6 +317,9 @@ instead of the true count." | |||
| 317 | (goto-char (match-end 0))) | 317 | (goto-char (match-end 0))) |
| 318 | ;; Ignore source blocks | 318 | ;; Ignore source blocks |
| 319 | ((org-in-src-block-p) (forward-line)) | 319 | ((org-in-src-block-p) (forward-line)) |
| 320 | ;; Ignore blank lines | ||
| 321 | ((looking-at "^$") | ||
| 322 | (forward-line)) | ||
| 320 | ;; Count everything else | 323 | ;; Count everything else |
| 321 | (t | 324 | (t |
| 322 | ;; ... unless it's in a few weird contexts | 325 | ;; ... unless it's in a few weird contexts |