branch: scratch/mheerdegen-preview
commit 6ed849aaacee61bfaab72131899eae70f4d7b33e
Author: Michael Heerdegen <michael_heerde...@web.de>
Commit: Michael Heerdegen <michael_heerde...@web.de>
WIP: [el-search] Don't kill modified buffers
This fixes a problem introduced in 1d2bbf66 "Improve working of
`el-search-kill-left-over-search-buffers'": We still need to check
whether the buffer to be killed has been modified (by
'el-search-query-replace').
(el-search-kill-left-over-search-buffers): Exclude modified buffers
from killing.
---
packages/el-search/el-search.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 799446b..e556cd9 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -1531,7 +1531,8 @@ the cursor) are not killed."
(interactive)
(dolist (buffer (buffer-list))
(when (with-current-buffer buffer el-search--temp-buffer-flag)
- (unless (or (el-search--search-buffer-p buffer)
+ (unless (or (buffer-modified-p buffer) ; modified with
el-s-query-replace and auto-save off
+ (el-search--search-buffer-p buffer)
(with-current-buffer buffer (el-search--pending-search-p)))
(kill-buffer buffer)))))
