* lisp/replace.el (occur-engine): Count matches in empty lines.

(Bug#22062)

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))