comparison src/buffer.c @ 28991:f8bcf3bec2a6

(Fbury_buffer): Avoid trouble from burying a killed buffer.

28990:80e6f0d6eac1

      if (NILP (buf1))
	nsberror (buffer);
      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);

  return Qnil;
}

DEFUN ("erase-buffer", Ferase_buffer, Serase_buffer, 0, 0, "*",

28991:f8bcf3bec2a6

      if (NILP (buf1))
	nsberror (buffer);
      buffer = buf1;
    }

  /* 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;
}

DEFUN ("erase-buffer", Ferase_buffer, Serase_buffer, 0, 0, "*",