aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/fileloop.el
diff options
context:
space:
mode:
authorEli Zaretskii2021-06-06 15:29:18 +0300
committerEli Zaretskii2021-06-06 15:29:18 +0300
commitfc37483617e09fb901c075dd20cfb7b2c2a165fe (patch)
tree921d3fbbb5bd39e550a845a05a23a931afaa833e /lisp/fileloop.el
parent0f9d8c9381f12a5ddcbf749a8e8238d7f9080497 (diff)
downloademacs-fc37483617e09fb901c075dd20cfb7b2c2a165fe.tar.gz
emacs-fc37483617e09fb901c075dd20cfb7b2c2a165fe.zip
Fix a problem with restarting 'tags-search'
* lisp/progmodes/etags.el (tags-search, tags-query-replace): Link to 'fileloop-continue' instead of 'tags-loop-continue', for continuing TAGS-based search/replace commands. * lisp/fileloop.el (fileloop-continue): Reset 'switch-to-buffer-preserve-window-point' to nil when switching to another buffer, so as to make sure a new search always restarts from point-min in each buffer it searches. (Bug#48628)
Diffstat (limited to 'lisp/fileloop.el')
-rw-r--r--lisp/fileloop.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/fileloop.el b/lisp/fileloop.el
index cb9fe8f7769..8a2755d69a5 100644
--- a/lisp/fileloop.el
+++ b/lisp/fileloop.el
@@ -171,7 +171,8 @@ operating on the next file and nil otherwise."
171 (goto-char pos)) 171 (goto-char pos))
172 (push-mark original-point t)) 172 (push-mark original-point t))
173 173
174 (switch-to-buffer (current-buffer)) 174 (let (switch-to-buffer-preserve-window-point)
175 (switch-to-buffer (current-buffer)))
175 176
176 ;; Now operate on the file. 177 ;; Now operate on the file.
177 ;; If value is non-nil, continue to scan the next file. 178 ;; If value is non-nil, continue to scan the next file.