don't let kill-buffer kill a buffer if it is current in any thread

1 files changed, 19 insertions, 0 deletions

diff --git a/src/thread.c b/src/thread.c
index 551f3de10e4..7de260ee3c0 100644
--- a/src/thread.c
+++ b/src/thread.c
@@ -881,6 +881,25 @@ DEFUN ("all-threads", Fall_threads, Sall_threads, 0, 0, 0,
 
 
 
+int
+thread_check_current_buffer (struct buffer *buffer)
+{
+  struct thread_state *iter;
+
+  for (iter = all_threads; iter; iter = iter->next_thread)
+    {
+      if (iter == current_thread)
+        continue;
+
+      if (iter->m_current_buffer == buffer)
+        return 1;
+    }
+
+  return 0;
+}
+
+
+
 static void
 init_primary_thread (void)
 {