diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-11-10 03:46:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-11-10 03:46:33 +0000 |
| commit | 71edead178097eb7ba814ae169732ff6c4cc9b90 (patch) | |
| tree | 5d31878228f1cb3b5793ee50896678ebce872c49 /src | |
| parent | 2f24e04e52af3279af6612aa263ed73eb89dc3f6 (diff) | |
| download | emacs-71edead178097eb7ba814ae169732ff6c4cc9b90.tar.gz | |
(tracking_off): Test old value with NILP.
Restore the old value whatever it may be.
(syms_of_keyboard): Use DEFVAR_LISP for track-mouse.
Diffstat (limited to 'src')
| -rw-r--r-- | src/keyboard.c | 7 |
1 files 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 |