diff options
| author | Juri Linkov <juri@linkov.net> | 2015-12-01 01:38:15 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2015-12-01 01:38:15 +0200 |
| commit | 5eafc0a7a910db0accac162a59f4709fc2ecec4c (patch) | |
| tree | 439972d0253160fbe8bc254948ddaaceba79e281 /lisp/replace.el | |
| parent | 7210f5130abb909aebcbb09a8a71558100fb9f96 (diff) | |
| download | emacs-5eafc0a7a910db0accac162a59f4709fc2ecec4c.tar.gz emacs-5eafc0a7a910db0accac162a59f4709fc2ecec4c.tar.bz2 emacs-5eafc0a7a910db0accac162a59f4709fc2ecec4c.zip | |
* lisp/replace.el (occur-engine): Count matches in empty lines.
(Bug#22062)
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 21a830da9ca..54b3a71bda2 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -1577,6 +1577,9 @@ See also `multi-occur'." ;; Highlight the matches (let ((len (length curstring)) (start 0)) + ;; Count empty lines that don't use next loop (Bug#22062). + (when (zerop len) + (setq matches (1+ matches))) (while (and (< start len) (string-match regexp curstring start)) (setq matches (1+ matches)) |