comparison src/xdisp.c @ 83310:e58cb448e07c

Merged from [e-mail]--gnu-2005 (patch 80-82, 350-422) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-350 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-351 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-352 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-353 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-354 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-355 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-356 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-357 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-358 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-359 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-360 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-361 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-362 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-363 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-364 Remove "-face" suffix from widget faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-365 Remove "-face" suffix from custom faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-366 Remove "-face" suffix from change-log faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-367 Remove "-face" suffix from compilation faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-368 Remove "-face" suffix from diff-mode faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-369 lisp/longlines.el (longlines-visible-face): Face removed * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-370 Remove "-face" suffix from woman faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-371 Remove "-face" suffix from whitespace-highlight face * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-372 Remove "-face" suffix from ruler-mode faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-373 Remove "-face" suffix from show-paren faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-374 Remove "-face" suffix from log-view faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-375 Remove "-face" suffix from smerge faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-376 Remove "-face" suffix from show-tabs faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-377 Remove "-face" suffix from highlight-changes faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-378 Remove "-face" suffix from and downcase info faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-379 Remove "-face" suffix from pcvs faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-380 Update uses of renamed pcvs faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-381 Tweak ChangeLog * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-382 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-383 Remove "-face" suffix from strokes-char face * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-384 Remove "-face" suffix from compare-windows face * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-385 Remove "-face" suffix from calendar faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-386 Remove "-face" suffix from diary-button face * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-387 Remove "-face" suffix from testcover faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-388 Remove "-face" suffix from viper faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-389 Remove "-face" suffix from org faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-390 Remove "-face" suffix from sgml-namespace face * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-391 Remove "-face" suffix from table-cell face * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-392 Remove "-face" suffix from tex-mode faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-393 Remove "-face" suffix from texinfo-heading face * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-394 Remove "-face" suffix from flyspell faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-395 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-396 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-397 Remove "-face" suffix from gomoku faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-398 Remove "-face" suffix from mpuz faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-399 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-400 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-401 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-402 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-403 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-404 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-405 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-406 Merge from gnus--rel--5.10 * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-407 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-408 Remove "-face" suffix from Buffer-menu-buffer face * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-409 Remove "-face" suffix from antlr-mode faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-410 Remove "-face" suffix from ebrowse faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-411 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-412 Remove "-face" suffix from flymake faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-413 Remove "-face" suffix from idlwave faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-414 Remove "-face" suffix from sh-script faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-415 Remove "-face" suffix from vhdl-mode faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-416 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-417 Remove "-face" suffix from which-func face * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-418 Remove "-face" suffix from cperl-mode faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-419 Remove "-face" suffix from ld-script faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-420 Fix cperl-mode font-lock problem * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-421 Tweak which-func face * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-422 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-80 Merge from emacs--cvs-trunk--0 * [e-mail]--gnu-2005/gnus--rel--5.10--patch-81 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-82 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-350

83309:6aee1e9b0bd7

Lisp_Object Qtrailing_whitespace;

/* Name and number of the face used to highlight escape glyphs.  */

Lisp_Object Qescape_glyph;

/* The symbol `image' which is the car of the lists used to represent
   images in Lisp.  */

Lisp_Object Qimage;

     struct glyph_row *row;
     struct glyph *glyph;
     int *heightp;
{
  struct frame *f = XFRAME (WINDOW_FRAME (w));
  int x, y, wd, h, h0, y0;

  /* Compute the width of the rectangle to draw.  If on a stretch
     glyph, and `x-stretch-block-cursor' is nil, don't draw a
     rectangle as wide as the glyph, but use a canonical character
     width instead.  */

		   || (it->multibyte_p
		       ? ((it->c >= 127
			   && it->len == 1)
			  || !CHAR_PRINTABLE_P (it->c)
			  || (!NILP (Vshow_nonbreak_escape)
			      && (it->c == 0x8ad || it->c == 0x8a0
				  || it->c == 0xf2d || it->c == 0xf20)))
		       : (it->c >= 127
			  && (!unibyte_display_via_language_environment
			      || it->c == unibyte_char_to_multibyte (it->c)))))
	    {
	      /* IT->c is a control character which must be displayed

		 display.  Then, set IT->dpvec to these glyphs.  */
	      GLYPH g;
	      int ctl_len;
	      int face_id, lface_id = 0 ;
	      GLYPH escape_glyph;

	      if (it->c < 128 && it->ctl_arrow_p)
		{
		  g = '^';	     /* default glyph for Control */
		  /* Set IT->ctl_chars[0] to the glyph for `^'.  */

		  XSETINT (it->ctl_chars[1], g);
		  ctl_len = 2;
		  goto display_control;
		}

	      escape_glyph = '\\';    /* default for Octal display */
	      if (it->dp
		  && INTEGERP (DISP_ESCAPE_GLYPH (it->dp))
		  && GLYPH_CHAR_VALID_P (XFASTINT (DISP_ESCAPE_GLYPH (it->dp))))
		{
		  escape_glyph = XFASTINT (DISP_ESCAPE_GLYPH (it->dp));
		  lface_id = FAST_GLYPH_FACE (escape_glyph);
		}
	      if (lface_id)
		{
		  escape_glyph = FAST_GLYPH_CHAR (escape_glyph);
		  face_id = merge_faces (it->f, Qt, lface_id,
					 it->face_id);
		}
	      else

		  /* Merge the escape-glyph face into the current face.  */
		  face_id = merge_faces (it->f, Qescape_glyph, 0,
					 it->face_id);
		}

	      if (it->c == 0x8a0 || it->c == 0x8ad
		  || it->c == 0xf20 || it->c == 0xf2d)
		{
		  XSETINT (it->ctl_chars[0], escape_glyph);
		  g = it->c;
		  XSETINT (it->ctl_chars[1], g);
		  ctl_len = 2;
		  goto display_control;
		}

static Lisp_Object
format_mode_line_unwind_data (obuf)
     struct buffer *obuf;
{
  int i = 0;
  Lisp_Object vector;

  /* Reduce consing by keeping one vector in
     Vwith_echo_area_save_vector.  */
  vector = Vmode_line_unwind_vector;

  if (all_windows)
    {
      Lisp_Object tail, frame;
      int count = SPECPDL_INDEX ();

      record_unwind_protect (Fset_match_data, Fmatch_data (Qnil, Qnil));

      FOR_EACH_FRAME (tail, frame)
	{
	  f = XFRAME (frame);

	  specbind (Qinhibit_menubar_update, Qt);

	  set_buffer_internal_1 (XBUFFER (w->buffer));
	  if (save_match_data)
	    record_unwind_protect (Fset_match_data, Fmatch_data (Qnil, Qnil));
	  if (NILP (Voverriding_local_map_menu_flag))
	    {
	      specbind (Qoverriding_terminal_local_map, Qnil);
	      specbind (Qoverriding_local_map, Qnil);
	    }

	     keymaps.  */
	  set_buffer_internal_1 (XBUFFER (w->buffer));

	  /* Save match data, if we must.  */
	  if (save_match_data)
	    record_unwind_protect (Fset_match_data, Fmatch_data (Qnil, Qnil));

	  /* Make sure that we don't accidentally use bogus keymaps.  */
	  if (NILP (Voverriding_local_map_menu_flag))
	    {
	      specbind (Qoverriding_terminal_local_map, Qnil);

static Lisp_Object
get_line_height_property (it, prop)
     struct it *it;
     Lisp_Object prop;
{
  Lisp_Object position, val;

  if (STRINGP (it->object))
    position = make_number (IT_STRING_CHARPOS (*it));
  else if (BUFFERP (it->object))
    position = make_number (IT_CHARPOS (*it));

	      extra_line_spacing = 0;
	    }
	  else
	    {
	      Lisp_Object spacing;
	      int total = 0;

	      it->phys_ascent = it->ascent;
	      it->phys_descent = it->descent;

	      if ((it->max_ascent > 0 || it->max_descent > 0)

	  int gpos;
	  int gseq_length;
	  int total_pixel_width;
	  int ignore;


	  if (clear_mouse_face (dpyinfo))
	    cursor = No_Cursor;

	  b = Fprevious_single_property_change (make_number (charpos + 1),
						Qmouse_face, string, Qnil);
	  if (NILP (b))
	    b = make_number (0);

	  total_pixel_width = 0;
	  for (tmp_glyph = glyph - gpos; tmp_glyph != glyph; tmp_glyph++)
	    total_pixel_width += tmp_glyph->pixel_width;

	  dpyinfo->mouse_face_beg_col = (x - gpos);
	  dpyinfo->mouse_face_beg_row = (area == ON_MODE_LINE
					 ? (w->current_matrix)->nrows - 1
					 : 0);

	  dpyinfo->mouse_face_beg_x   = original_x_pixel - (total_pixel_width + dx);
	  dpyinfo->mouse_face_beg_y   = 0;

	  dpyinfo->mouse_face_end_col = (x - gpos) + gseq_length;
	  dpyinfo->mouse_face_end_row = dpyinfo->mouse_face_beg_row;

	  dpyinfo->mouse_face_end_x   = 0;
	  dpyinfo->mouse_face_end_y   = 0;

	  show_mouse_face (dpyinfo, DRAW_MOUSE_FACE);

	  if (NILP (pointer))
	    pointer = Qhand;
	}
    }

  define_frame_cursor1 (f, cursor, pointer);
}


/* EXPORT:

  window = window_from_coordinates (f, x, y, &part, 0, 0, 1);

  /* If we were displaying active text in another window, clear that.
     Also clear if we move out of text area in same window.  */
  if (! EQ (window, dpyinfo->mouse_face_window)
      || (part != ON_TEXT && !NILP (dpyinfo->mouse_face_window)))
    clear_mouse_face (dpyinfo);

  /* Not on a window -> return.  */
  if (!WINDOWP (window))
    return;

  staticpro (&Qfontification_functions);
  Qtrailing_whitespace = intern ("trailing-whitespace");
  staticpro (&Qtrailing_whitespace);
  Qescape_glyph = intern ("escape-glyph");
  staticpro (&Qescape_glyph);
  Qimage = intern ("image");
  staticpro (&Qimage);
  QCmap = intern (":map");
  staticpro (&QCmap);
  QCpointer = intern (":pointer");

    doc: /* *Non-nil means highlight trailing whitespace.
The face used for trailing whitespace is `trailing-whitespace'.  */);
  Vshow_trailing_whitespace = Qnil;

  DEFVAR_LISP ("show-nonbreak-escape", &Vshow_nonbreak_escape,
    doc: /* *Non-nil means display escape character before non-break space and hyphen.  */);
  Vshow_nonbreak_escape = Qt;

  DEFVAR_LISP ("void-text-area-pointer", &Vvoid_text_area_pointer,
    doc: /* *The pointer shape to show in void text areas.
Nil means to show the text pointer.  Other options are `arrow', `text',

83310:e58cb448e07c

Lisp_Object Qtrailing_whitespace;

/* Name and number of the face used to highlight escape glyphs.  */

Lisp_Object Qescape_glyph;

/* Name and number of the face used to highlight non-breaking spaces.  */

Lisp_Object Qno_break_space;

/* The symbol `image' which is the car of the lists used to represent
   images in Lisp.  */

Lisp_Object Qimage;

     struct glyph_row *row;
     struct glyph *glyph;
     int *heightp;
{
  struct frame *f = XFRAME (WINDOW_FRAME (w));
  int y, wd, h, h0, y0;

  /* Compute the width of the rectangle to draw.  If on a stretch
     glyph, and `x-stretch-block-cursor' is nil, don't draw a
     rectangle as wide as the glyph, but use a canonical character
     width instead.  */

		   || (it->multibyte_p
		       ? ((it->c >= 127
			   && it->len == 1)
			  || !CHAR_PRINTABLE_P (it->c)
			  || (!NILP (Vshow_nonbreak_escape)
			      && (it->c == 0x8a0 || it->c == 0x8ad
				  || it->c == 0x920 || it->c == 0x92d
				  || it->c == 0xe20 || it->c == 0xe2d
				  || it->c == 0xf20 || it->c == 0xf2d)))
		       : (it->c >= 127
			  && (!unibyte_display_via_language_environment
			      || it->c == unibyte_char_to_multibyte (it->c)))))
	    {
	      /* IT->c is a control character which must be displayed

		 display.  Then, set IT->dpvec to these glyphs.  */
	      GLYPH g;
	      int ctl_len;
	      int face_id, lface_id = 0 ;
	      GLYPH escape_glyph;

	      /* Handle control characters with ^.  */

	      if (it->c < 128 && it->ctl_arrow_p)
		{
		  g = '^';	     /* default glyph for Control */
		  /* Set IT->ctl_chars[0] to the glyph for `^'.  */

		  XSETINT (it->ctl_chars[1], g);
		  ctl_len = 2;
		  goto display_control;
		}

	      /* Handle non-break space in the mode where it only gets
		 highlighting.  */

	      if (! EQ (Vshow_nonbreak_escape, Qt)
		  && (it->c == 0x8a0 || it->c == 0x920
		      || it->c == 0xe20 || it->c == 0xf20))
		{
		  /* Merge the no-break-space face into the current face.  */
		  face_id = merge_faces (it->f, Qno_break_space, 0,
					 it->face_id);

		  g = it->c = ' ';
		  XSETINT (it->ctl_chars[0], g);
		  ctl_len = 1;
		  goto display_control;
		}

	      /* Handle sequences that start with the "escape glyph".  */

	      /* the default escape glyph is \.  */
	      escape_glyph = '\\';

	      if (it->dp
		  && INTEGERP (DISP_ESCAPE_GLYPH (it->dp))
		  && GLYPH_CHAR_VALID_P (XFASTINT (DISP_ESCAPE_GLYPH (it->dp))))
		{
		  escape_glyph = XFASTINT (DISP_ESCAPE_GLYPH (it->dp));
		  lface_id = FAST_GLYPH_FACE (escape_glyph);
		}
	      if (lface_id)
		{
		  /* The display table specified a face.
		     Merge it into face_id and also into escape_glyph.  */
		  escape_glyph = FAST_GLYPH_CHAR (escape_glyph);
		  face_id = merge_faces (it->f, Qt, lface_id,
					 it->face_id);
		}
	      else

		  /* Merge the escape-glyph face into the current face.  */
		  face_id = merge_faces (it->f, Qescape_glyph, 0,
					 it->face_id);
		}

	      /* Handle soft hyphens in the mode where they only get
		 highlighting.  */

	      if (! EQ (Vshow_nonbreak_escape, Qt)
		  && (it->c == 0x8ad || it->c == 0x92d
		      || it->c == 0xe2d || it->c == 0xf2d))
		{
		  g = it->c = '-';
		  XSETINT (it->ctl_chars[0], g);
		  ctl_len = 1;
		  goto display_control;
		}

	      /* Handle non-break space and soft hyphen
		 with the escape glyph.  */

	      if (it->c == 0x8a0 || it->c == 0x8ad
		  || it->c == 0x920 || it->c == 0x92d
		  || it->c == 0xe20 || it->c == 0xe2d
		  || it->c == 0xf20 || it->c == 0xf2d)
		{
		  XSETINT (it->ctl_chars[0], escape_glyph);
		  g = it->c = ((it->c & 0xf) == 0 ? ' ' : '-');
		  XSETINT (it->ctl_chars[1], g);
		  ctl_len = 2;
		  goto display_control;
		}

static Lisp_Object
format_mode_line_unwind_data (obuf)
     struct buffer *obuf;
{
  Lisp_Object vector;

  /* Reduce consing by keeping one vector in
     Vwith_echo_area_save_vector.  */
  vector = Vmode_line_unwind_vector;

  if (all_windows)
    {
      Lisp_Object tail, frame;
      int count = SPECPDL_INDEX ();

      record_unwind_save_match_data ();

      FOR_EACH_FRAME (tail, frame)
	{
	  f = XFRAME (frame);

	  specbind (Qinhibit_menubar_update, Qt);

	  set_buffer_internal_1 (XBUFFER (w->buffer));
	  if (save_match_data)
	    record_unwind_save_match_data ();
	  if (NILP (Voverriding_local_map_menu_flag))
	    {
	      specbind (Qoverriding_terminal_local_map, Qnil);
	      specbind (Qoverriding_local_map, Qnil);
	    }

	     keymaps.  */
	  set_buffer_internal_1 (XBUFFER (w->buffer));

	  /* Save match data, if we must.  */
	  if (save_match_data)
	    record_unwind_save_match_data ();

	  /* Make sure that we don't accidentally use bogus keymaps.  */
	  if (NILP (Voverriding_local_map_menu_flag))
	    {
	      specbind (Qoverriding_terminal_local_map, Qnil);

static Lisp_Object
get_line_height_property (it, prop)
     struct it *it;
     Lisp_Object prop;
{
  Lisp_Object position;

  if (STRINGP (it->object))
    position = make_number (IT_STRING_CHARPOS (*it));
  else if (BUFFERP (it->object))
    position = make_number (IT_CHARPOS (*it));

	      extra_line_spacing = 0;
	    }
	  else
	    {
	      Lisp_Object spacing;

	      it->phys_ascent = it->ascent;
	      it->phys_descent = it->descent;

	      if ((it->max_ascent > 0 || it->max_descent > 0)

	  int gpos;
	  int gseq_length;
	  int total_pixel_width;
	  int ignore;

	  int vpos, hpos;

	  b = Fprevious_single_property_change (make_number (charpos + 1),
						Qmouse_face, string, Qnil);
	  if (NILP (b))
	    b = make_number (0);

	  total_pixel_width = 0;
	  for (tmp_glyph = glyph - gpos; tmp_glyph != glyph; tmp_glyph++)
	    total_pixel_width += tmp_glyph->pixel_width;

	  /* Pre calculation of re-rendering position */
	  vpos = (x - gpos);
	  hpos = (area == ON_MODE_LINE
		  ? (w->current_matrix)->nrows - 1
		  : 0);

	  /* If the re-rendering position is included in the last
	     re-rendering area, we should do nothing. */
	  if ( EQ (window, dpyinfo->mouse_face_window)
	       && dpyinfo->mouse_face_beg_col <= vpos
	       && vpos < dpyinfo->mouse_face_end_col
	       && dpyinfo->mouse_face_beg_row == hpos )
	    return;

	  if (clear_mouse_face (dpyinfo))
	    cursor = No_Cursor;

	  dpyinfo->mouse_face_beg_col = vpos;
	  dpyinfo->mouse_face_beg_row = hpos;

	  dpyinfo->mouse_face_beg_x   = original_x_pixel - (total_pixel_width + dx);
	  dpyinfo->mouse_face_beg_y   = 0;

	  dpyinfo->mouse_face_end_col = vpos + gseq_length;
	  dpyinfo->mouse_face_end_row = dpyinfo->mouse_face_beg_row;

	  dpyinfo->mouse_face_end_x   = 0;
	  dpyinfo->mouse_face_end_y   = 0;

	  show_mouse_face (dpyinfo, DRAW_MOUSE_FACE);

	  if (NILP (pointer))
	    pointer = Qhand;
	}
      else if ((area == ON_MODE_LINE) || (area == ON_HEADER_LINE))
	clear_mouse_face (dpyinfo);
    }
  define_frame_cursor1 (f, cursor, pointer);
}


/* EXPORT:

  window = window_from_coordinates (f, x, y, &part, 0, 0, 1);

  /* If we were displaying active text in another window, clear that.
     Also clear if we move out of text area in same window.  */
  if (! EQ (window, dpyinfo->mouse_face_window)
      || (part != ON_TEXT && part != ON_MODE_LINE && part != ON_HEADER_LINE 
	  && !NILP (dpyinfo->mouse_face_window)))
    clear_mouse_face (dpyinfo);

  /* Not on a window -> return.  */
  if (!WINDOWP (window))
    return;

  staticpro (&Qfontification_functions);
  Qtrailing_whitespace = intern ("trailing-whitespace");
  staticpro (&Qtrailing_whitespace);
  Qescape_glyph = intern ("escape-glyph");
  staticpro (&Qescape_glyph);
  Qno_break_space = intern ("no-break-space");
  staticpro (&Qno_break_space);
  Qimage = intern ("image");
  staticpro (&Qimage);
  QCmap = intern (":map");
  staticpro (&QCmap);
  QCpointer = intern (":pointer");

    doc: /* *Non-nil means highlight trailing whitespace.
The face used for trailing whitespace is `trailing-whitespace'.  */);
  Vshow_trailing_whitespace = Qnil;

  DEFVAR_LISP ("show-nonbreak-escape", &Vshow_nonbreak_escape,
    doc: /* *Control highlighting of non-break space and soft hyphen.
t means highlight the character itself (for non-break space,
use face `non-break-space'.
nil means no highlighting.
other values mean display the escape glyph before the character.  */);
  Vshow_nonbreak_escape = Qt;

  DEFVAR_LISP ("void-text-area-pointer", &Vvoid_text_area_pointer,
    doc: /* *The pointer shape to show in void text areas.
Nil means to show the text pointer.  Other options are `arrow', `text',