# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 784439193 0
# Node ID 02cd4dde69e1ec19c5afddd0828b4ee3990446e4
# Parent  e84476854b4346e79c16fd44d1b9e9af48e96704
(tracking_off): Test old value with NILP.
Restore the old value whatever it may be.
(syms_of_keyboard): Use DEFVAR_LISP for track-mouse.

diff -r e84476854b43 -r 02cd4dde69e1 src/keyboard.c
--- a/src/keyboard.c	Thu Nov 10 03:44:29 1994 +0000
+++ b/src/keyboard.c	Thu Nov 10 03:46:33 1994 +0000
@@ -1952,10 +1952,9 @@
 tracking_off (old_value)
      Lisp_Object old_value;
 {
-  if (! XFASTINT (old_value))
+  do_mouse_tracking = old_value;
+  if (NILP (old_value))
     {
-      do_mouse_tracking = Qnil;
-
       /* Redisplay may have been preempted because there was input
 	 available, and it assumes it will be called again after the
 	 input has been processed.  If the only input available was
@@ -6400,7 +6399,7 @@
   Voverriding_local_map_menu_flag = Qnil;
 
 #ifdef HAVE_MOUSE
-  DEFVAR_BOOL ("track-mouse", &do_mouse_tracking,
+  DEFVAR_LISP ("track-mouse", &do_mouse_tracking,
 	       "*Non-nil means generate motion events for mouse motion.");
 #endif