[elpa] externals/el-search 468745a 185/332: Show match count for `el-search-query-replace'

[Stefan Monnier]

branch: externals/el-search
commit 468745a3b872881a09e4d889835fe8d3c38c0ee2
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>

    Show match count for `el-search-query-replace'
---
 el-search.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/el-search.el b/el-search.el
index 63276c0..b1f9c53 100644
--- a/el-search.el
+++ b/el-search.el
@@ -7,7 +7,7 @@
 ;; Created: 29 Jul 2015
 ;; Keywords: lisp
 ;; Compatibility: GNU Emacs 25
-;; Version: 1.4.0.2
+;; Version: 1.4.0.3
 ;; Package-Requires: ((emacs "25") (stream "2.2.4"))
 
 
@@ -2944,7 +2944,13 @@ reindent."
                              (lambda ()
                                (car
                                 (read-multiple-choice
-                                 (if replaced-this "" "Replace?")
+                                 (concat
+                                  (let ((nbr-done  (+ nbr-replaced 
nbr-skipped))
+                                        (nbr-to-do (el-search-count-matches 
pattern)))
+                                    (format "[%d/%d] "
+                                            (if replaced-this nbr-done (1+ 
nbr-done))
+                                            (+ nbr-done nbr-to-do)))
+                                  (if replaced-this "" "Replace?"))
                                  (delq nil
                                        (list
                                         (and (not replaced-this)