🚀 go-pugleaf

|> From epoch-m@cs.uiuc.edu Fri Oct 16 20:39:25 1992
|> To: epoch@cs.uiuc.edu
|> Date: 16 Oct 92 18:28:10 GMT
|> Organization: Amdahl Corporation, Sunnyvale, CA
|> Reply-To: drp40@cd.amdahl.com
|> Subject: Mouse buttons to scroll
|> 
|> I would like to use the middle and right mouse buttons to scroll in
|> epoch.  I tried the following in  my motion.el:
|> 
|> (global-set-mouse mouse-middle mouse-down 'scroll-down)
|> (global-set-mouse mouse-right mouse-down 'scroll-up)
|> 
|> but it won't work...scroll-down puts me at the beginning of the buffer,
|> scroll-up never works...

Try the following:

    (global-set-mouse mouse-middle mouse-down
      '(lambda (arg) (interactive)
         (scroll-up 1)))
    (global-set-mouse mouse-middle mouse-up 'nil)

    (global-set-mouse mouse-right mouse-down
      '(lambda (arg) (interactive)
         (scroll-down 1)))
    (global-set-mouse mouse-right mouse-up 'nil)

The problem is that you need to pass an argument (1) to the scrolling
functions.  Also, make sure that you don't have anything else assigned
to the "up" action of your mouse button.

Good luck!

--------------------------------------
Gerd Hoeren
  Integrated Measurement Systems, Inc.
  Voice: (503) 626-7117
  Fax:   (503) 644-6969
  Email: gerdh@ims.com
--------------------------------------