# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 958768438 0
# Node ID f8bcf3bec2a684d5aa9dd2f375ba79067bae6381
# Parent  80e6f0d6eac17ccdf8fc8559a9efd56f6ddc9e6e
(Fbury_buffer): Avoid trouble from burying a killed buffer.

diff -r 80e6f0d6eac1 -r f8bcf3bec2a6 src/buffer.c
--- a/src/buffer.c	Fri May 19 15:37:41 2000 +0000
+++ b/src/buffer.c	Fri May 19 20:33:58 2000 +0000
@@ -1771,18 +1771,20 @@
       buffer = buf1;
     }
 
-  /* Move buffer to the end of the buffer list.  */
-  {
-    register Lisp_Object aelt, link;
-
-    aelt = Frassq (buffer, Vbuffer_alist);
-    link = Fmemq (aelt, Vbuffer_alist);
-    Vbuffer_alist = Fdelq (aelt, Vbuffer_alist);
-    XCDR (link) = Qnil;
-    Vbuffer_alist = nconc2 (Vbuffer_alist, link);
-  }
-
-  frames_bury_buffer (buffer);
+  /* Move buffer to the end of the buffer list.  Do nothing if the
+     buffer is killed.  */
+  if (!NILP (XBUFFER (buffer)->name))
+    {
+      Lisp_Object aelt, link;
+
+      aelt = Frassq (buffer, Vbuffer_alist);
+      link = Fmemq (aelt, Vbuffer_alist);
+      Vbuffer_alist = Fdelq (aelt, Vbuffer_alist);
+      XCDR (link) = Qnil;
+      Vbuffer_alist = nconc2 (Vbuffer_alist, link);
+
+      frames_bury_buffer (buffer);
+    }
 
   return Qnil;
 }