[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/el-search 29eeda2 228/332: Show progress of automatic e
From: |
Stefan Monnier |
Subject: |
[elpa] externals/el-search 29eeda2 228/332: Show progress of automatic el-search-query-replace |
Date: |
Tue, 1 Dec 2020 15:48:51 -0500 (EST) |
branch: externals/el-search
commit 29eeda2194bba702ecab26d230231b6e61b90e21
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>
Show progress of automatic el-search-query-replace
* el-search/el-search.el: (el-search--search-and-replace-pattern):
Show percentage of progress of automatic query-replace.
---
el-search.el | 14 +++++++++++---
1 file changed, 11 insertions(+), 3 deletions(-)
diff --git a/el-search.el b/el-search.el
index c574b0b..5a0efa5 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.6.1
+;; Version: 1.6.2
;; Package-Requires: ((emacs "25") (stream "2.2.4") (cl-print "1.0"))
@@ -3244,7 +3244,7 @@ Thanks!"))))
(setq nbr-replaced 0)
(setq nbr-skipped 0)
(condition-case err
- (progn
+ (let ((start-point (point)))
(unless replace-all
(el-search-hl-other-matches matcher)
@@ -3300,7 +3300,15 @@ Thanks!"))))
(el-search--ensure-sexp-start))
(cl-incf nbr-replaced)
(cl-incf nbr-replaced-total)
- (setq replaced-this t)))
+ (setq replaced-this t)
+ (when replace-all
+ (let ((head (el-search-object-head
el-search--current-search)))
+ (el-search--message-no-log
+ "%s (%d%%)"
+ (or (el-search-head-file head)
+ (el-search-head-buffer head))
+ (/ (* 100 (- (point) start-point -1))
+ (- (point-max) start-point -1)))))))
(query
(lambda ()
(car
- [elpa] externals/el-search 23911d1 288/332: [el-search] Add menus, (continued)
- [elpa] externals/el-search 23911d1 288/332: [el-search] Add menus, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 68fcfcd 286/332: [el-search] Include preceding comments in occur defun context, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 90062c5 290/332: Update copyrights of some packages, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 120c662 296/332: [el-search] Minibuffer pattern prompt hints part 2, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 668d049 302/332: [el-search] Add el-search-list-defined-patterns, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search bb978b2 306/332: [el-search] Fix behavior after completed single-buffer search, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 985ca3c 312/332: [el-search] Add "List patterns" menu item, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search f5e8235 321/332: [el-search] C-c C-c in edit-replacement means replace, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 9d8798f 140/332: Work around more manifestations of Emacs bug #24542, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 7d621de 216/332: * el-search/el-search.el: Some minor tweaks, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 29eeda2 228/332: Show progress of automatic el-search-query-replace,
Stefan Monnier <=
- [elpa] externals/el-search 4b934f1 238/332: * el-search/el-search.el: Skip over #N read syntaxes, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 01d4431 269/332: [el-search] Don't initially fold El Occur buffers, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 1169ef1 294/332: [el-search] Add accessible buffer area to a validity check, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search c0947c3 295/332: [el-search] Minibuffer pattern prompt hints part 1: preparations, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 749aa0c 300/332: [el-search] Improvements for 'change' and 'changed', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search e522b71 305/332: [el-search] Enhance docstring of el-search-occur-mode, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search fdc4663 308/332: [el-search] Bump version to 1.11.1, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search e790747 309/332: [el-search] Fix quits in minibuffer in emacs -nw, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 39da179 313/332: [el-search] Minibuffer pattern prompt hints part 3, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 01c663b 315/332: [el-search] Make el-search-query-replace resumable, Stefan Monnier, 2020/12/01