[elpa] scratch/mheerdegen-preview 6ed849a 34/35: WIP: [el-search] Don't kill modified buffers

[Michael Heerdegen]

branch: scratch/mheerdegen-preview
commit 6ed849aaacee61bfaab72131899eae70f4d7b33e
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    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)))))