(w32_system_caret_hwnd, w32_system_caret_width)

(w32_system_caret_height, w32_system_caret_x)
(w32_system_caret_y): New variables for tracking system caret.
(w32_initialize): Initialize them.
(x_display_and_set_cursor): Make system caret follow the active cursor.

1 files changed, 54 insertions, 1 deletions

diff --git a/src/w32term.c b/src/w32term.c
index 76836209506..41c2a759cb4 100644
--- a/src/w32term.c
+++ b/src/w32term.c
@@ -214,6 +214,13 @@ struct frame *pending_autoraise_frame;
 
 struct cursor_pos output_cursor;
 
+/* The handle of the frame that currently owns the system caret.  */
+HWND w32_system_caret_hwnd;
+int w32_system_caret_width;
+int w32_system_caret_height;
+int w32_system_caret_x;
+int w32_system_caret_y;
+
 /* Flag to enable Unicode output in case users wish to use programs
    like Twinbridge on '95 rather than installed system level support
    for Far East languages.  */
@@ -6460,6 +6467,9 @@ note_mouse_highlight (f, x, y)
   if (!WINDOWP (window))
     return;
 
+  /* Reset help_echo. It will get recomputed below.  */
+  help_echo = Qnil;
+
   /* Convert to window-relative pixel coordinates.  */
   w = XWINDOW (window);
   frame_to_window_pixel_xy (w, &x, &y);
@@ -9482,6 +9492,7 @@ x_display_and_set_cursor (w, on, hpos, vpos, x, y)
   struct glyph_matrix *current_glyphs;
   struct glyph_row *glyph_row;
   struct glyph *glyph;
+  int active_cursor = 1;
 
   /* This is pointless on invisible frames, and dangerous on garbaged
      windows and frames; in the latter case, the frame or window may
@@ -9525,7 +9536,10 @@ x_display_and_set_cursor (w, on, hpos, vpos, x, y)
       if (w == XWINDOW (echo_area_window))
         new_cursor_type = FRAME_DESIRED_CURSOR (f);
       else
-        new_cursor_type = HOLLOW_BOX_CURSOR;
+        {
+          new_cursor_type = HOLLOW_BOX_CURSOR;
+          active_cursor = 0;
+        }
     }
   else
     {
@@ -9533,6 +9547,7 @@ x_display_and_set_cursor (w, on, hpos, vpos, x, y)
           || w != XWINDOW (f->selected_window))
         {
           extern int cursor_in_non_selected_windows;
+          active_cursor = 0;
 
           if (MINI_WINDOW_P (w) 
               || !cursor_in_non_selected_windows
@@ -9581,6 +9596,38 @@ x_display_and_set_cursor (w, on, hpos, vpos, x, y)
       w->phys_cursor_type = new_cursor_type;
       w->phys_cursor_on_p = 1;
 
+      /* If this is the active cursor, we need to track it with the
+         system caret, so third party software like screen magnifiers
+         and speech synthesizers can follow the cursor.  */
+      if (active_cursor)
+        {
+          HWND hwnd = FRAME_W32_WINDOW (f);
+
+          struct glyph * cursor_glyph = get_phys_cursor_glyph (w);
+          int caret_width = cursor_glyph->pixel_width;
+          w32_system_caret_x
+            = WINDOW_TEXT_TO_FRAME_PIXEL_X (w, w->phys_cursor.x);
+          w32_system_caret_y
+            = (WINDOW_TO_FRAME_PIXEL_Y (w, w->phys_cursor.y)
+               + glyph_row->ascent - w->phys_cursor_ascent);
+
+          /* If the size of the active cursor changed, destroy the old
+             system caret.  */
+          if (w32_system_caret_hwnd
+              && (w32_system_caret_height != w->phys_cursor_height
+                  || w32_system_caret_width != caret_width))
+            PostMessage (hwnd, WM_EMACS_DESTROY_CARET, NULL, NULL);
+
+          if (!w32_system_caret_hwnd)
+            {
+              w32_system_caret_height = w->phys_cursor_height;
+              w32_system_caret_width = caret_width;
+            }
+
+          /* Move the system caret.  */
+          PostMessage (hwnd, WM_EMACS_TRACK_CARET, NULL, NULL);
+        }
+
       switch (new_cursor_type)
         {
         case HOLLOW_BOX_CURSOR:
@@ -10786,6 +10833,12 @@ w32_initialize ()
                                    off the bottom */
   baud_rate = 19200;
 
+  w32_system_caret_hwnd = NULL;
+  w32_system_caret_height = 0;
+  w32_system_caret_width = 0;
+  w32_system_caret_x = 0;
+  w32_system_caret_y = 0;
+
   last_tool_bar_item = -1;
   any_help_event_p = 0;