comparison src/xdisp.c @ 107600:e47593843838

Retrospective commit from 2009-10-31. Continue debugging set_cursor_from_row. Continue debugging display of R2L glyph rows. xdisp.c (display_line): Always extend reversed_p rows to the end of line. (set_cursor_from_row): In R2L rows that don't display text, put the cursor on the rightmost glyph.

107599:23f8a579b56e

	  bidi_paragraph_init (it->paragraph_embedding, &it->bidi_it);
	  /* If the paragraph base direction is R2L, its glyphs should
	     be reversed.  */
	  if (it->glyph_row && (it->bidi_it.level_stack[0].level & 1) != 0)
	    it->glyph_row->reversed_p = 1;
	  if (it->glyph_row && (it->bidi_it.level_stack[0].level & 1) != 0)
	    it->glyph_row->reversed_p = 1;
	  bidi_get_next_char_visually (&it->bidi_it);
	}
      else
	{
	  int orig_bytepos = IT_BYTEPOS (*it);

		 && (end + 1)->charpos <= 0)
	    ++end;
	  glyph_before = glyph + 1;
	  glyph_after = end;
	}
    }

  /* Step 1: Try to find the glyph whose character position
     corresponds to point.  If that's not possible, find 2 glyphs
     whose character positions are the closest to point, one before

			      int gpos = glyph->charpos;

			      cprop = Fget_char_property (make_number (gpos),
							  Qcursor,
							  glyph->object);
			      if (!NILP (cprop))
				{
				  cursor = glyph;
				  break;
				}

      int saved_x = it->current_x;
      struct text_pos saved_pos;
      Lisp_Object saved_object;
      enum display_element_type saved_what = it->what;
      int saved_face_id = it->face_id;
      int text_len = it->glyph_row->used[TEXT_AREA];

      saved_object = it->object;
      saved_pos = it->position;

      it->what = IT_CHARACTER;

		row->indicate_empty_line_p = 1;
	    }

	  it->continuation_lines_width = 0;
	  row->ends_at_zv_p = 1;
	  row_end = it->current;
	  break;
	}

      /* Now, get the metrics of what we want to display.  This also

107600:e47593843838

	  bidi_paragraph_init (it->paragraph_embedding, &it->bidi_it);
	  /* If the paragraph base direction is R2L, its glyphs should
	     be reversed.  */
	  if (it->glyph_row && (it->bidi_it.level_stack[0].level & 1) != 0)
	    it->glyph_row->reversed_p = 1;
	  bidi_get_next_char_visually (&it->bidi_it);
	}
      else
	{
	  int orig_bytepos = IT_BYTEPOS (*it);

		 && (end + 1)->charpos <= 0)
	    ++end;
	  glyph_before = glyph + 1;
	  glyph_after = end;
	}
    }
  else if (row->reversed_p)
    {
      /* In R2L rows that don't display text, put the cursor on the
	 rightmost glyph.  Case in point: an empty last line that is
	 part of an R2L paragraph.  */
      cursor = end - 1;
      x = -1;	/* will be computed below, at lable compute_x */
    }

  /* Step 1: Try to find the glyph whose character position
     corresponds to point.  If that's not possible, find 2 glyphs
     whose character positions are the closest to point, one before

			      int gpos = glyph->charpos;

			      cprop = Fget_char_property (make_number (gpos),
							  Qcursor,
							  glyph->object);
			      /* FIXME: This loses the feature of the
				 unidirectional redisplay when the
				 property value was an integer.  */
			      if (!NILP (cprop))
				{
				  cursor = glyph;
				  break;
				}

      int saved_x = it->current_x;
      struct text_pos saved_pos;
      Lisp_Object saved_object;
      enum display_element_type saved_what = it->what;
      int saved_face_id = it->face_id;

      saved_object = it->object;
      saved_pos = it->position;

      it->what = IT_CHARACTER;

		row->indicate_empty_line_p = 1;
	    }

	  it->continuation_lines_width = 0;
	  row->ends_at_zv_p = 1;
	  /* A row that displays right-to-left text must always have
	     its last face extended all the way to the end of line,
	     even if this row ends in ZV.  */
	  if (row->reversed_p)
	    extend_face_to_end_of_line (it);
	  row_end = it->current;
	  break;
	}

      /* Now, get the metrics of what we want to display.  This also