Mercurial > emacs
changeset 9881:02cd4dde69e1
(tracking_off): Test old value with NILP.
Restore the old value whatever it may be.
(syms_of_keyboard): Use DEFVAR_LISP for track-mouse.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 10 Nov 1994 03:46:33 +0000 |
| parents | e84476854b43 |
| children | ccc5562a7194 |
| files | src/keyboard.c |
| diffstat | 1 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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