comparison src/buffer.c @ 71968:b0505e901bff

(Fbuffer_local_value, Fbarf_if_buffer_read_only): Use xsignal1.

71967:3254b987edcb

      /* 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.

71968:b0505e901bff

      /* 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.