[elpa] master 2bd76a6: * el-search/el-search.el: Fix single buffer query-replace

[Michael Heerdegen]

branch: master
commit 2bd76a6045fae55f153c4e4b8e46539004a022f9
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    * el-search/el-search.el: Fix single buffer query-replace
    
    This fix makes ad-hoc (single-buffer) el-search-query-replace start
    from current point as expected, instead of from the beginning of the
    buffer.
    
    (el-search--search-and-replace-pattern): Use the setup function of the
    newly created ad-hoc search to make it start from point.
---
 packages/el-search/el-search.el | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 94c9460..225861c 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -3179,12 +3179,17 @@ Thanks!"))))
                               (let ((current-buffer (current-buffer)))
                                 (lambda () (stream (list current-buffer))))
                               t
-                              (lambda (search)
-                                (setf (alist-get 'is-single-buffer
-                                                 (el-search-object-properties 
search))
-                                      t)
-                                (setf (alist-get 'description 
(el-search-object-properties search))
-                                      "Search created by 
`el-search-query-replace'"))))
+                              (let ((here (copy-marker (point))))
+                                (lambda (search)
+                                  (setf (alist-get 'is-single-buffer
+                                                   
(el-search-object-properties search))
+                                        t)
+                                  (setf (alist-get 'description 
(el-search-object-properties search))
+                                        "Search created by 
`el-search-query-replace'")
+                                  (let ((inhibit-message t))
+                                    (el-search--next-buffer search)
+                                    (setf (el-search-head-position 
(el-search-object-head search))
+                                          here))))))
   (catch 'done
     (let ((replace-all nil) (replace-all-and-following nil)
           nbr-replaced nbr-skipped (nbr-replaced-total 0) (nbr-changed-buffers 
0)