comparison src/buffer.c @ 90533:8a8e69664178

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 343-356) - Update from CVS - Update for ERC 5.1.3. - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 113-115) - Merge from emacs--devo--0 - Update from CVS Revision: [e-mail]/emacs--unicode--0--patch-90

90532:e22cf6d2400c

      /* Now get the (perhaps updated) value out of the binding.  */
      result = XCDR (result);
    }

  if (EQ (result, Qunbound))
    return Fsignal (Qvoid_variable, Fcons (variable, Qnil));

  return result;
}

/* Return an alist of the Lisp-level buffer-local bindings of
   buffer BUF.  That is, don't include the variables maintained
   in special slots in the buffer object.  */

       doc: /* Signal a `buffer-read-only' error if the current buffer is read-only.  */)
     ()
{
  if (!NILP (current_buffer->read_only)
      && NILP (Vinhibit_read_only))
    Fsignal (Qbuffer_read_only, (Fcons (Fcurrent_buffer (), Qnil)));
  return Qnil;
}

DEFUN ("bury-buffer", Fbury_buffer, Sbury_buffer, 0, 1, "",
       doc: /* Put BUFFER at the end of the list of all buffers.

90533:8a8e69664178

      /* Now get the (perhaps updated) value out of the binding.  */
      result = XCDR (result);
    }

  if (!EQ (result, Qunbound))
    return result;

  xsignal1 (Qvoid_variable, variable);
}

/* Return an alist of the Lisp-level buffer-local bindings of
   buffer BUF.  That is, don't include the variables maintained
   in special slots in the buffer object.  */

       doc: /* Signal a `buffer-read-only' error if the current buffer is read-only.  */)
     ()
{
  if (!NILP (current_buffer->read_only)
      && NILP (Vinhibit_read_only))
    xsignal1 (Qbuffer_read_only, Fcurrent_buffer ());
  return Qnil;
}

DEFUN ("bury-buffer", Fbury_buffer, Sbury_buffer, 0, 1, "",
       doc: /* Put BUFFER at the end of the list of all buffers.