branch: master
commit ce9f6fdd7463b10bc5c498acd1164114bee2f31e
Author: Michael Heerdegen <[email protected]>
Commit: Michael Heerdegen <[email protected]>
Fix el-search-query-replace reindent wrongly in narrowed buffer
---
packages/el-search/el-search.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index fc68ae2..28343d4 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -1100,7 +1100,9 @@ Hit any key to proceed."
(do-replace
(lambda ()
(save-excursion
- (el-search--replace-hunk (list (point)
(el-search--end-of-sexp)) to-insert))
+ (save-restriction
+ (widen)
+ (el-search--replace-hunk (list (point)
(el-search--end-of-sexp)) to-insert)))
(el-search--ensure-sexp-start) ;skip potentially newly
added whitespace
(el-search-hl-sexp (list opoint (point)))
(cl-incf nbr-replaced)
