comparison src/xterm.c @ 44301:1892db006468

(autoselect_window_p): Renamed from `x_autoselect_window_p'. (last_window): New variable. (XTread_socket): Generate SELECT_WINDOW_EVENTs. (note_mouse_movement): Remove reimplemented code in #if 0.

44300:21286349d285

static int any_help_event_p;

/* Non-zero means autoselect window with the mouse cursor.  */

int x_autoselect_window_p;

/* Non-zero means draw block and hollow cursor as wide as the glyph
   under it.  For example, if a block cursor is over a tab, it will be
   drawn as wide as that tab on the display.  */

     XMotionEvent *event;
{
  last_mouse_movement_time = event->time;
  last_mouse_motion_event = *event;
  XSETFRAME (last_mouse_motion_frame, frame);

#if 0 /* Lisp must not be called asynchronously, so this must
	 not be done.  */
  if (x_autoselect_window_p)
    {
      int area;
      Lisp_Object window;
      static Lisp_Object last_window;

      window = window_from_coordinates (frame, XINT (event->x), XINT (event->y), &area, 0);

      /* Window will be selected only when it is not selected now and
	 last mouse movement event was not in it.  Minibuffer window
	 will be selected iff it is active.  */
      if (!EQ (window, last_window)
	  && !EQ (window, selected_window)
	  && (!MINI_WINDOW_P (XWINDOW (window))
	      || (EQ (window, minibuf_window) && minibuf_level > 0)))
	Fselect_window (window);

      last_window=window;
    }
#endif

  if (event->window != FRAME_X_WINDOW (frame))
    {
      frame->mouse_moved = 1;
      last_mouse_scroll_bar = Qnil;

		    dpyinfo->mouse_face_hidden = 0;
		    clear_mouse_face (dpyinfo);
		  }

		if (f)
		  note_mouse_movement (f, &event.xmotion);
		else
		  {
#ifndef USE_TOOLKIT_SCROLL_BARS
		    struct scroll_bar *bar
		      = x_window_to_scroll_bar (event.xmotion.window);

  staticpro (&help_echo_window);
  previous_help_echo = Qnil;
  staticpro (&previous_help_echo);
  help_echo_pos = -1;

  DEFVAR_BOOL ("x-autoselect-window", &x_autoselect_window_p,
    doc: /* *Non-nil means autoselect window with mouse pointer.  */);
  x_autoselect_window_p = 0;

  DEFVAR_BOOL ("x-stretch-cursor", &x_stretch_cursor_p,
    doc: /* *Non-nil means draw block cursor as wide as the glyph under it.
For example, if a block cursor is over a tab, it will be drawn as
wide as that tab on the display.  */);

44301:1892db006468

static int any_help_event_p;

/* Non-zero means autoselect window with the mouse cursor.  */

int autoselect_window_p;

/* Last window where we saw the mouse.  Used by autoselect-window.  */
static Lisp_Object last_window;

/* Non-zero means draw block and hollow cursor as wide as the glyph
   under it.  For example, if a block cursor is over a tab, it will be
   drawn as wide as that tab on the display.  */

     XMotionEvent *event;
{
  last_mouse_movement_time = event->time;
  last_mouse_motion_event = *event;
  XSETFRAME (last_mouse_motion_frame, frame);

  if (event->window != FRAME_X_WINDOW (frame))
    {
      frame->mouse_moved = 1;
      last_mouse_scroll_bar = Qnil;

		    dpyinfo->mouse_face_hidden = 0;
		    clear_mouse_face (dpyinfo);
		  }

		if (f)
		  {

		    /* Generate SELECT_WINDOW_EVENTs when needed.  */
		    if (autoselect_window_p)
		      {
			Lisp_Object window;
			int area;

			window = window_from_coordinates (f,
							  XINT (event.xmotion.x), XINT (event.xmotion.y),
							  &area, 0);

			/* Window will be selected only when it is not selected now and
			   last mouse movement event was not in it.  Minibuffer window
			   will be selected iff it is active.  */
			if (!EQ (window, last_window)
			    && !EQ (window, selected_window)
			    && numchars > 0)
			  {
			    bufp->kind = SELECT_WINDOW_EVENT;
			    bufp->frame_or_window = window;
			    bufp->arg = Qnil;
			    ++bufp, ++count, --numchars;
			  }

			last_window=window;
		      }
		    note_mouse_movement (f, &event.xmotion);
		  }
		else
		  {
#ifndef USE_TOOLKIT_SCROLL_BARS
		    struct scroll_bar *bar
		      = x_window_to_scroll_bar (event.xmotion.window);

  staticpro (&help_echo_window);
  previous_help_echo = Qnil;
  staticpro (&previous_help_echo);
  help_echo_pos = -1;

  DEFVAR_BOOL ("autoselect-window", &autoselect_window_p,
    doc: /* *Non-nil means autoselect window with mouse pointer.  */);
  autoselect_window_p = 0;

  DEFVAR_BOOL ("x-stretch-cursor", &x_stretch_cursor_p,
    doc: /* *Non-nil means draw block cursor as wide as the glyph under it.
For example, if a block cursor is over a tab, it will be drawn as
wide as that tab on the display.  */);