(syms_of_w32fns): Initialize w32_visible_system_caret_hwnd.

diff --git a/src/w32fns.c b/src/w32fns.c
index 1ab46faac4796df8c966dea202b8f9151a008aae..beb61281794acb6d8f8d64c140cacc4ca0598dec 100644 (file)
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -321,7 +321,7 @@ extern int w32_system_caret_x;
 extern int w32_system_caret_y;
 extern int w32_use_visible_system_caret;
 
-HWND w32_visible_system_caret_hwnd;
+static HWND w32_visible_system_caret_hwnd;
 
 \f
 /* Error if we are not connected to MS-Windows.  */
@@ -4879,9 +4879,9 @@ w32_wnd_proc (hwnd, msg, wParam, lParam)
       /* Relinquish the system caret.  */
       if (w32_system_caret_hwnd)
        {
-         DestroyCaret ();
-         w32_system_caret_hwnd = NULL;
          w32_visible_system_caret_hwnd = NULL;
+         w32_system_caret_hwnd = NULL;
+         DestroyCaret ();
        }
     case WM_MOVE:
     case WM_SIZE:
@@ -14467,6 +14467,8 @@ syms_of_w32fns ()
   track_mouse_event_fn = GetProcAddress (user32_lib, "TrackMouseEvent");
   track_mouse_window = NULL;
 
+  w32_visible_system_caret_hwnd = NULL;
+
   /* The section below is built by the lisp expression at the top of the file,
      just above where these variables are declared.  */
   /*&&& init symbols here &&&*/