From 71edead178097eb7ba814ae169732ff6c4cc9b90 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 10 Nov 1994 03:46:33 +0000 Subject: [PATCH] (tracking_off): Test old value with NILP. Restore the old value whatever it may be. (syms_of_keyboard): Use DEFVAR_LISP for track-mouse. --- src/keyboard.c | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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 -- 2.39.5