diff options
| author | Eli Zaretskii | 2021-06-06 15:29:18 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2021-06-06 15:29:18 +0300 |
| commit | fc37483617e09fb901c075dd20cfb7b2c2a165fe (patch) | |
| tree | 921d3fbbb5bd39e550a845a05a23a931afaa833e /lisp/fileloop.el | |
| parent | 0f9d8c9381f12a5ddcbf749a8e8238d7f9080497 (diff) | |
| download | emacs-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.el | 3 |
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. |