comparison src/textprop.c @ 25772:1902e7e63fa7

(Fset_text_properties): Remove unused variables. (text_property_list, verify_interval_modification, interval_has_all_properties): Ditto.

25771:21925339c7d2

static int
interval_has_all_properties (plist, i)
     Lisp_Object plist;
     INTERVAL i;
{
  register Lisp_Object tail1, tail2, sym1, sym2;
  register int found;

  /* Go through each element of PLIST.  */
  for (tail1 = plist; ! NILP (tail1); tail1 = Fcdr (Fcdr (tail1)))
    {

{
  register INTERVAL i, unchanged;
  register INTERVAL prev_changed = NULL_INTERVAL;
  register int s, len;
  Lisp_Object ostart, oend;
  int have_modified = 0;

  ostart = start;
  oend = end;

  properties = validate_plist (properties);

text_property_list (object, start, end, prop)
     Lisp_Object object, start, end, prop;
{
  struct interval *i;
  Lisp_Object result;
  int s, e;

  result = Qnil;
  
  i = validate_interval_range (object, &start, &end, soft);
  if (!NULL_INTERVAL_P (i))

verify_interval_modification (buf, start, end)
     struct buffer *buf;
     int start, end;
{
  register INTERVAL intervals = BUF_INTERVALS (buf);
  register INTERVAL i, prev;
  Lisp_Object hooks;
  register Lisp_Object prev_mod_hooks;
  Lisp_Object mod_hooks;
  struct gcpro gcpro1;

25772:1902e7e63fa7

static int
interval_has_all_properties (plist, i)
     Lisp_Object plist;
     INTERVAL i;
{
  register Lisp_Object tail1, tail2, sym1;
  register int found;

  /* Go through each element of PLIST.  */
  for (tail1 = plist; ! NILP (tail1); tail1 = Fcdr (Fcdr (tail1)))
    {

{
  register INTERVAL i, unchanged;
  register INTERVAL prev_changed = NULL_INTERVAL;
  register int s, len;
  Lisp_Object ostart, oend;

  ostart = start;
  oend = end;

  properties = validate_plist (properties);

text_property_list (object, start, end, prop)
     Lisp_Object object, start, end, prop;
{
  struct interval *i;
  Lisp_Object result;

  result = Qnil;
  
  i = validate_interval_range (object, &start, &end, soft);
  if (!NULL_INTERVAL_P (i))

verify_interval_modification (buf, start, end)
     struct buffer *buf;
     int start, end;
{
  register INTERVAL intervals = BUF_INTERVALS (buf);
  register INTERVAL i;
  Lisp_Object hooks;
  register Lisp_Object prev_mod_hooks;
  Lisp_Object mod_hooks;
  struct gcpro gcpro1;