emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: make-indirect-buffer


From: Luc Teirlinck
Subject: Re: make-indirect-buffer
Date: Mon, 12 Apr 2004 16:22:35 -0500 (CDT)

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");




reply via email to

[Prev in Thread] Current Thread [Next in Thread]