comparison src/intervals.c @ 29278:fcb030c7708e

(get_local_map): Extra arg to allow looking for `keymap' too.

29277:6f7f86b93247

  *end = i->position + LENGTH (i);

  return 1;
}

/* Return the proper local map for position POSITION in BUFFER.
   Use the map specified by the local-map property, if any.
   Otherwise, use BUFFER's local map.  */

Lisp_Object
get_local_map (position, buffer)
     register int position;
     register struct buffer *buffer;
{
  Lisp_Object prop, tem, lispy_position, lispy_buffer;
  int old_begv, old_zv, old_begv_byte, old_zv_byte;

  /* Perhaps we should just change `position' to the limit.  */

     check for a local map on the last character of the buffer instead.  */
  if (position == BUF_Z (buffer) && BUF_Z (buffer) > BUF_BEG (buffer))
    --position;
  XSETFASTINT (lispy_position, position);
  XSETBUFFER (lispy_buffer, buffer);
  prop = Fget_char_property (lispy_position, Qlocal_map, lispy_buffer);

  BUF_BEGV (buffer) = old_begv;
  BUF_ZV (buffer) = old_zv;
  BUF_BEGV_BYTE (buffer) = old_begv_byte;
  BUF_ZV_BYTE (buffer) = old_zv_byte;

    prop = indirect_function (prop);
  if (!NILP (prop)
      && (tem = Fkeymapp (prop), !NILP (tem)))
    return prop;

  return buffer->keymap;
}

/* Produce an interval tree reflecting the intervals in
   TREE from START to START + LENGTH.
   The new interval tree has no parent and has a starting-position of 0.  */

29278:fcb030c7708e

  *end = i->position + LENGTH (i);

  return 1;
}

/* If TYPE is `keymap', return the map specified by the `keymap'
   property at POSITION in BUFFER or nil.

   Otherwise return the proper local map for position POSITION in
   BUFFER.  Use the map specified by the local-map property, if any.
   Otherwise, use BUFFER's local map.  */

Lisp_Object
get_local_map (position, buffer, type)
     register int position;
     register struct buffer *buffer;
     enum map_property type;
{
  Lisp_Object prop, tem, lispy_position, lispy_buffer;
  int old_begv, old_zv, old_begv_byte, old_zv_byte;

  /* Perhaps we should just change `position' to the limit.  */

     check for a local map on the last character of the buffer instead.  */
  if (position == BUF_Z (buffer) && BUF_Z (buffer) > BUF_BEG (buffer))
    --position;
  XSETFASTINT (lispy_position, position);
  XSETBUFFER (lispy_buffer, buffer);
  prop = Fget_char_property (lispy_position,
			     type == keymap ? Qkeymap : Qlocal_map,
			     lispy_buffer);

  BUF_BEGV (buffer) = old_begv;
  BUF_ZV (buffer) = old_zv;
  BUF_BEGV_BYTE (buffer) = old_begv_byte;
  BUF_ZV_BYTE (buffer) = old_zv_byte;

    prop = indirect_function (prop);
  if (!NILP (prop)
      && (tem = Fkeymapp (prop), !NILP (tem)))
    return prop;

  if (type == keymap)
    return Qnil;
  else
    return buffer->keymap;
}

/* Produce an interval tree reflecting the intervals in
   TREE from START to START + LENGTH.
   The new interval tree has no parent and has a starting-position of 0.  */