Emacs does not scroll on Mac OS X

Emacs does not scroll on Mac OS X

[Michael Tüxen]

Dear all,

I'm using Emacs on Mac OS X (built from the CVS).
After loading a long file I can scroll through the
file by clicking on the slider and moving it. But
clicking on the little arrows on the right lower
edge and holding the mouse down does not scroll
through the doc. It displays only
vertical-scroll-bar down-mouse-1
and when I stop holding it down mouse-1 is
appended.

Is this expected behaviour or a bug?

Best regards
Michael

Re: Emacs does not scroll on Mac OS X

[Andrew Choi]

Michael Tüxen <Michael.Tuexen@micmac.franken.de> writes:

> I'm using Emacs on Mac OS X (built from the CVS).  After loading a
> long file I can scroll through the file by clicking on the slider and
> moving it. But clicking on the little arrows on the right lower edge
> and holding the mouse down does not scroll through the doc. It
> displays only vertical-scroll-bar down-mouse-1 and when I stop holding
> it down mouse-1 is appended.
> 
> Is this expected behaviour or a bug?

It is a bug now.  It was an attempt to auto-repeat mouse events in the
scroll bar, which used to work.  Perhaps it's better to do without the
auto-repeat:

(defun mac-handle-scroll-bar-event (event)
  "Handle scroll bar EVENT on Mac OS."
  (interactive "e")
  (let* ((position (event-start event))
         (window (nth 0 position))
         (bar-part (nth 4 position)))
    (select-window window)
    (cond
     ((eq bar-part 'up)
      (read-event)			; discard mouse-1
      (scroll-down 1))
     ((eq bar-part 'above-handle)
      (read-event)
      (scroll-down))
     ((eq bar-part 'handle)
      (read-event)
      (scroll-bar-drag event))
     ((eq bar-part 'below-handle)
      (read-event)
      (scroll-up))
     ((eq bar-part 'down)
      (read-event)
      (scroll-up 1)))))