[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 5eafc0a: * lisp/replace.el (occur-engine): Count
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] emacs-25 5eafc0a: * lisp/replace.el (occur-engine): Count matches in empty lines. |
Date: |
Mon, 30 Nov 2015 23:39:21 +0000 |
branch: emacs-25
commit 5eafc0a7a910db0accac162a59f4709fc2ecec4c
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>
* lisp/replace.el (occur-engine): Count matches in empty lines.
(Bug#22062)
---
lisp/replace.el | 3 +++
1 files changed, 3 insertions(+), 0 deletions(-)
diff --git a/lisp/replace.el b/lisp/replace.el
index 21a830d..54b3a71 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 5eafc0a: * lisp/replace.el (occur-engine): Count matches in empty lines.,
Juri Linkov <=