read-char bug

[Davin Pearson]

When I run the following code and then press the left mouse button and it goes 
into an infinite loop.  I have also tried the alternative to read-char, 
methinks it is something like read-char-exclusive and that fails too.

(let (done ch)
  (setq done nil)
  (when (not done)
  (condition-case err
     (setq ch (read-char "Enter y, n, ! or q"))'
     (error 
        (message "Wrong char")))
        ))
   ch)