🚀 go-pugleaf

In article <1992Mar30.210927.20930@fmsrl7.srl.ford.com>, hugh@slee06 (Hugh Fader) writes:

> Question #2:
> 
> How can I reverse the functions of the middle mouse button and the
> right mouse button so that the behavior is more like the Open Look
> mouse behavior?

(let
  (
    (right-down (aref mouse::global-map (mouse::index mouse-right mouse-down)))
    (right-up (aref mouse::global-map (mouse::index mouse-right mouse-up)))
    (middle-down (aref mouse::global-map (mouse::index mouse-middle mouse-down)))
    (middle-up (aref mouse::global-map (mouse::index mouse-middle mouse-up)))
  )
  (global-set-mouse mouse-right mouse-down middle-down)
  (global-set-mouse mouse-right mouse-up middle-up)
  (global-set-mouse mouse-middle mouse-down right-down)
  (global-set-mouse mouse-middle mouse-up right-up)
)

-- 
Alan M. Carroll          "Weren't there yams involved, too?" - J. Ockerbloom
Epoch Development Team   
Urbana Il.               "I hate shopping with the reality-impaired" - Susan