(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 --git a/src/keyboard.c b/src/keyboard.c
index 80801cbd1692fc8c4874e9886678b437ac85385c..2be24b4f007e785b6c068369b4c5e774450c9408 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -1952,10 +1952,9 @@ static Lisp_Object
 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 @@ and the minor mode maps regardless of `overriding-local-map'.");
   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