[elpa] master 490ef9f: Show match count for `el-search-query-replace'

[Michael Heerdegen]

branch: master
commit 490ef9f68d43f9f8e9b5d6a2bdd99971c3bdf992
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

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

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 63276c0..b1f9c53 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/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)