Re: Mac emacs scroll bars

[Lennart Staflin]

On 9 jul 2004, at 11:53, YAMAMOTO Mitsuharu wrote:
> (defun mac-scroll-ignore-events ()
>   ;; Ignore confusing non-mouse events
>   (while (not (eq (event-basic-type (read-event)) 'mouse-1))
>     nil))

You should not ignore all events but mouse-1, unless you are sure that 
there will be a mouse-1 event before any other interesting event. I 
don't think that is guaranteed, because of the way events are 
simplified/translated. The code can be called from a double mouse down 
event translated to single mouse down and then there won't be a mouse-1 
event, but a double-mouse-1 (or whatever it is called). You end up 
stuck in the loop ignoring events that should be handled.

//Lennart Staflin