# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1011822761 0
# Node ID 9b06036a8c5e5419b770128da38103782cfdf454
# Parent  ec2db12c76709a615ff36314d2c179764e79d50f
(syms_of_w32fns): Initialize w32_visible_system_caret_hwnd.

diff -r ec2db12c7670 -r 9b06036a8c5e src/w32fns.c
--- a/src/w32fns.c	Wed Jan 23 17:46:44 2002 +0000
+++ b/src/w32fns.c	Wed Jan 23 21:52:41 2002 +0000
@@ -321,7 +321,7 @@
 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;
 
 
 /* Error if we are not connected to MS-Windows.  */
@@ -4879,9 +4879,9 @@
       /* Relinquish the system caret.  */
       if (w32_system_caret_hwnd)
 	{
-	  DestroyCaret ();
+	  w32_visible_system_caret_hwnd = NULL;
 	  w32_system_caret_hwnd = NULL;
-	  w32_visible_system_caret_hwnd = NULL;
+	  DestroyCaret ();
 	}
     case WM_MOVE:
     case WM_SIZE:
@@ -14467,6 +14467,8 @@
   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 &&&*/