bug#70041: 30.0.50; mouse-autoselect-window causes unexpected scroll

[martin rudalics]

> What would you like me to test for on the window-scroll-hooks?

Let's start with

(defun foo (window start)
  "..."
  (with-current-buffer (get-buffer-create "*foo*")
    (let* ((buffer (window-buffer window))
           (max (with-current-buffer buffer (point-max))))
      (insert (format "window %s start %s point %s point-max %s\n"
                      window start (window-point window) max)))))

(add-hook 'window-scroll-functions 'foo)

I suppose the problem you see is with windows where the value of 'point'
is not that of 'point-max'.  Let's find such a window in the buffer
*foo* first.

Thanks, martin