Live windows -- Differences between 21.4 and 21.5!?

[Mats Lidell]

Hi,

I just saw a difference between 21.4 and 21.5 about live windows. I
managed to reduce the code down to this below.

----------------------------------------------------------------------
(defun my-test (args)
  (interactive "e")
  (mouse-set-point current-mouse-event)
  (let ((release-window (selected-window)))
    (message "Window: %s" release-window)
    (sit-for 1)
    (read-string "### ")
    (if (window-live-p release-window)
	(select-window release-window)
      (message "Window: %s not live" release-window)
    )))

(global-set-key '(control shift button2up) 'my-test)
----------------------------------------------------------------------

Procedure: Make a split screen {C-x 2}, press (control shift button2)
in one window and then drag the mouse over to the other window and
release button2, so that a (control shift button2up) event is
generated, and my-test is executed. The result of running my-test is
that the second window is not live in 21.5 but is live in 21.4.

The intervening call to read-string, using the minibuffer, is
important for causing this difference. Maybe beeing in the minibuffer
for a while

The second window is visible all the time during this operation so how
come it is not live anymore? Is this a bug in 21.5?

Yours
-- 
%% Mats