!~Filename~:!
EMOUSE

!& Setup EMOUSE Library:!
m.m^R Mouse Lu.l
m.m^R Mouse Mu.m
m.m^R Mouse Ru.r
m.m& Mouse Selectfo..QMouse L Actionm.vMouse L Action
m.m& Mouse Undefinedf(fo..QMouse M Actionm.vMouse M Action
)fo..QMouse R Actionm.vMouse R Action


!& Mouse Args:!
:i*:i*
<fiu0q0f0123456789:;:iXX0>
<fiu0q0f0123456789:;:iYY0>
mX,(mY)

!& Mouse Undefined:!
q..0&137.
100.[C
:i*Cfsechodisplay
@ftMouse-C is not defined here.
0fsechoactive
0

!^R Mouse L:!
m(m.m& Mouse Args)mMouse L Action

!^R Mouse M:!
m(m.m& Mouse Args)mMouse M Action

!^R Mouse R:!
m(m.m& Mouse Args)mMouse R Action

!& Mouse Select:!
fm(m.m& Mouse Move)
0fo..QMouse Select Hookf"n[0m0'

!& Mouse Move:!
[0[X[Y
fstopline
fsheight-(fsecholines)[H
fslinesf"eqH'"#+qT'[B
qT"gqT-qY-1"efg0''
qY-qH"gfg0'
qT-qY"g@m(m.m^R Other Window)'
qB-qY"l@m(m.m^R Other Window)'
fstoplineuT
fswindow+bj
1:<qY-qT,qX:FM>
0

!~DOC~ ~Filename~:!
Compatibility support for LispM mice

!~DOC~ & Setup EMOUSE Library:!
& Set up compatibility for LispM EMACS-MOUSE library

!~DOC~ & Mouse Args:!
S Macro which gobbles mouse args (postfix) via Tyi from terminal

!~DOC~ & Mouse Undefined:!
S Macro to run when mouse action not defined

!~DOC~ ^R Mouse L:!
^R Handler for Mouse-Left

!~DOC~ ^R Mouse M:!
^R Handler for Mouse-Middle

!~DOC~ ^R Mouse R:!
^R Handler for Mouse-Right

!~DOC~ & Mouse Select:!
^R Select a point with the mouse

!~DOC~ & Mouse Move:!
S Move to a point given by the mouse

!~DIRECTORY~:!
& Setup EMOUSE Library
& Mouse Args
& Mouse Undefined
^R Mouse L
^R Mouse M
^R Mouse R
& Mouse Select
& Mouse Move