comparison src/intervals.c @ 11327:76908dad81a4

(set_point): When skipping intangible text, stop where property value changes.

11326:0d5ebc078c51

    {
      BUF_PT (buffer) = position;
      return;
    }

  /* If the new position is between two intangible characters,
     move forward or backward across all such characters.  */
  if (NILP (Vinhibit_point_motion_hooks) && ! NULL_INTERVAL_P (to)
      && ! NULL_INTERVAL_P (toprev))
    {
      if (backwards)
	{
	  /* Make sure the following character is intangible
	     if the previous one is.  */
	  if (toprev == to
	      || ! NILP (textget (to->plist, Qintangible)))
	    /* Ok, that is so.  Back up across intangible text.  */
	    while (! NULL_INTERVAL_P (toprev)
		   && ! NILP (textget (toprev->plist, Qintangible)))
	      {
		to = toprev;
		toprev = previous_interval (toprev);
		if (NULL_INTERVAL_P (toprev))
		  position = BUF_BEGV (buffer);

		  position = to->position;
	      }
	}
      else
	{
	  /* Make sure the previous character is intangible
	     if the following one is.  */
	  if (toprev == to
	      || ! NILP (textget (toprev->plist, Qintangible)))
	    /* Ok, that is so.  Advance across intangible text.  */
	    while (! NULL_INTERVAL_P (to)
		   && ! NILP (textget (to->plist, Qintangible)))
	      {
		toprev = to;
		to = next_interval (to);
		if (NULL_INTERVAL_P (to))
		  position = BUF_ZV (buffer);
		else
		  position = to->position;
	      }
	}
      /* Here TO is the interval after the stopping point
	 and TOPREV is the interval before the stopping point.
	 One or the other may be null.  */
    }

  BUF_PT (buffer) = position;

  /* We run point-left and point-entered hooks here, iff the
     two intervals are not equivalent.  These hooks take

11327:76908dad81a4

    {
      BUF_PT (buffer) = position;
      return;
    }

  /* If the new position is between two intangible characters
     with the same intangible property value,
     move forward or backward until a change in that property.  */
  if (NILP (Vinhibit_point_motion_hooks) && ! NULL_INTERVAL_P (to)
      && ! NULL_INTERVAL_P (toprev))
    {
      if (backwards)
	{
	  Lisp_Object intangible_propval;
	  intangible_propval = textget (to->plist, Qintangible);

	  /* If following char is intangible,
	     skip back over all chars with matching intangible property.  */
	  if (! NILP (intangible_propval))
	    while (to == toprev
		   || ((! NULL_INTERVAL_P (toprev)
			&& EQ (textget (toprev->plist, Qintangible),
			       intangible_propval))))
	      {
		to = toprev;
		toprev = previous_interval (toprev);
		if (NULL_INTERVAL_P (toprev))
		  position = BUF_BEGV (buffer);

		  position = to->position;
	      }
	}
      else
	{
	  Lisp_Object intangible_propval;
	  intangible_propval = textget (toprev->plist, Qintangible);

	  /* If previous char is intangible,
	     skip fwd over all chars with matching intangible property.  */
	  if (! NILP (intangible_propval))
	    while (to == toprev
		   || ((! NULL_INTERVAL_P (to)
			&& EQ (textget (to->plist, Qintangible),
			       intangible_propval))))
	      {
		toprev = to;
		to = next_interval (to);
		if (NULL_INTERVAL_P (to))
		  position = BUF_ZV (buffer);
		else
		  position = to->position;
	      }
	}
    }

  /* Here TO is the interval after the stopping point
     and TOPREV is the interval before the stopping point.
     One or the other may be null.  */

  BUF_PT (buffer) = position;

  /* We run point-left and point-entered hooks here, iff the
     two intervals are not equivalent.  These hooks take