(Fkill_buffer): When killing indirect buffer,

unchain that buffer's markers (only) from the common chain.
Don't rekill this buffer's indirect buffers that are dead.
Do nothing if this buffer is already dead.

1 files changed, 25 insertions, 4 deletions

diff --git a/src/buffer.c b/src/buffer.c
index e743425052f..61cd2f9bd47 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -889,6 +889,10 @@ with `delete-process'.")
 
   b = XBUFFER (buf);
 
+  /* Avoid trouble for buffer already dead.  */
+  if (NILP (b->name))
+    return Qnil;
+
   /* Query if the buffer is still modified.  */
   if (INTERACTIVE && !NILP (b->filename)
       && BUF_MODIFF (b) > BUF_SAVE_MODIFF (b))
@@ -946,7 +950,9 @@ with `delete-process'.")
       GCPRO1 (buf);
 
       for (other = all_buffers; other; other = other->next)
-        if (other->base_buffer == b)
+        /* all_buffers contains dead buffers too;
+           don't re-kill them.  */
+        if (other->base_buffer == b && !NILP (other->name))
           {
             Lisp_Object buf;
             XSETBUFFER (buf, other);
@@ -992,11 +998,26 @@ with `delete-process'.")
         internal_delete_file (b->auto_save_file_name);
     }
 
-  if (! b->base_buffer)
+  if (b->base_buffer)
+    {
+      /* Unchain all markers that belong to this indirect buffer.
+         Don't unchain the markers that belong to the base buffer
+         or its other indirect buffers.  */
+      for (tem = BUF_MARKERS (b); !NILP (tem); )
+        {
+          Lisp_Object next;
+          m = XMARKER (tem);
+          next = m->chain;
+          if (m->buffer == b)
+            unchain_marker (tem);
+          tem = next;
+        }
+    }
+  else
     {
-      /* Unchain all markers of this buffer
+      /* Unchain all markers of this buffer and its indirect buffers.
          and leave them pointing nowhere.  */
-      for (tem = BUF_MARKERS (b); !EQ (tem, Qnil); )
+      for (tem = BUF_MARKERS (b); !NILP (tem); )
         {
           m = XMARKER (tem);
           m->buffer = 0;