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

[martin rudalics via "Bug reports for GNU Emacs, the Swiss army knife of text editors" <bug-gnu-emacs@gnu.org>]

 > 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