branch: master
commit 490ef9f68d43f9f8e9b5d6a2bdd99971c3bdf992
Author: Michael Heerdegen <[email protected]>
Commit: Michael Heerdegen <[email protected]>
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)
