Re: make-indirect-buffer

[Luc Teirlinck]

Basically one could do this (I do not know whether it is worth the
extra variable):

{
  Lisp_Object buf;
  Lisp_Object tem;
  struct buffer *b;

  CHECK_STRING (name);
  buf = Fget_buffer (name);
  if (!NILP (buf))
    error ("Buffer name `%s' is in use", SDATA (name));

  tem = base_buffer;
  base_buffer = Fget_buffer (base_buffer);
  if (NILP (Fget_buffer (base_buffer)))
    error ("No such buffer: `%s'", SDATA (tem));
  if (NILP (XBUFFER (base_buffer)->name))
    error ("Base buffer has been killed");