[elpa] scratch/mheerdegen-preview 0d07bb8 33/33: WIP: [el-search] Don't kill modified buffers

[Michael Heerdegen]

branch: scratch/mheerdegen-preview
commit 0d07bb80760e08a275ff4d0d20931245a68c1ef9
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 ba8c84d..34bac65 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -1539,7 +1539,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-search-query-replace
+                  (el-search--search-buffer-p buffer)
                   (with-current-buffer buffer (el-search--pending-search-p)))
         (kill-buffer buffer)))))