From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 10 Nov 1994 03:46:33 +0000 (+0000)
Subject: (tracking_off): Test old value with NILP.
X-Git-Tag: emacs-19.34~5974
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=71edead178097eb7ba814ae169732ff6c4cc9b90;p=emacs.git

(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 80801cbd169..2be24b4f007 100644
--- 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