21.1 mouse-movement locks up Emacs

[Jari Aalto+mail.emacs]

This is W2K Pro 
"GNU Emacs 21.1.1 (i386-msvc-nt5.0.2195) of 2001-10-22 on buffy"


I may have found a serious error in 21.1. The following
code works okay in 20.7: the message is printed only if mouse
is moved.  If cursor is moved, the message is not printed.


(progn
  (defun test (event)
    (interactive "e")
    (message "mouse movement ok")
    (discard-input))
  (setq track-mouse t)
  (global-set-key [(mouse-movement)] 'test))


However, in 21.1 -q, running the code completely locks up Emacs.

    M-x
    C-x ..

None of the keys refuse to work any more. The text is displayed
all the time in the echo-area even if cursro is moved. 

by looking at the opening frame, the drag-bar constantly flickers
as if Emacs is in infinite loop.

Jari