Google
 

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/mwindow.elib
There are no other files named mwindow.elib in the archive.
PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   BzO)[qh9s"

i W-[7CN
dY~f$tW}G	!m K  50 \? sMn]!kDx oS#!T3!:A0O _!$o|ze`#%& Exit Current Window& Goto Current Window& Many Window Refresh& Redisplay Window& Setup WINDOW Library& Show Separators^R Another Window^R Average Windows^R Change Other Window^R Delete Window^R Grow Window Bottom^R Grow Window Top^R Only One Window^R Scroll Other Window^R Set Window Separator^R Split Window^R Split Window Stay~DIRECTORY~~DOC~ & Exit Current Window~DOC~ & Goto Current Window~DOC~ & Many Window Refresh~DOC~ & Redisplay Window ~DOC~ & Setup WINDOW Library~DOC~ & Show Separators~DOC~ ^R Another Window~DOC~ ^R Average Windows ~DOC~ ^R Change Other Window~DOC~ ^R Delete Window~DOC~ ^R Grow Window Bottom~DOC~ ^R Grow Window Top~DOC~ ^R Only One Window ~DOC~ ^R Scroll Other Window!~DOC~ ^R Set Window Separator~DOC~ ^R Split Window~DOC~ ^R Split Window Stay~DOC~ ~Filename~~Filename~
~INVERT~K0FO..QMax Windows"E
10m.vMax Windows
5*12fsqvectorm.vWindow Data
qWindow Data[0:i*Main[11[2
qMax Windows+1<5*10fsqvector[3
q2-1"nq1u:3(0)q1u:3(6)'q3u:0(q2)%2]3>
]2]1]0
1m.vNumber of Windows
1m.vCurrent Window
1m.vPrevious Window
'
:i*----------O..QWindow Separatorf"nu1'
q1,m(m.m^R Set Window Separator)]1
m(m.mMake Prefix Character).yu.W
qPrefix Char List[1
:iPrefix Char List1Control-W  q.y

]1
m.m^R Kill Regionu:.y()
m.m^R Delete Windowu:.y(D)
m.m^R Only One Windowu:.y(1)
m.m^R Split Windowu:.y(2)
m.m^R Split Window Stayu:.y(3)
m.m^R Another Windowu:.y(O)
m.m^R Change Other Windowu:.y(^)
m.m^R Average Windowsu:.y(A)
m.m^R Scroll Other Windowu:.y(V)
m.m^R Set Window Separatoru:.y(-)
m.m^R Grow Window Topu:.y(T)
m.m^R Grow window Bottomu:.y(B)
w1,m(m.m^R Split Window)wqNumber of Windows-qmax Windows"E
:I*AMW	Already the Maximum of windowsFSERR'
fsrgetty"E
:I*TTY	You are on a printing terminalFSERR'
fslines"N
fslines-3"l
:I*WTS	Window too small to splitFSERR''
qWindow Data[0
qCurrent Window[1
qNumber of Windows2-1"E1u1'
fstopline[3
fslines[4
q4"efsheight-(fsecholines)-1u4'
q:0(q1)[5
qBuffer Nameu:5(0)
q:.b(q:5(0)m(m.m& Find Buffer)+4)u:5(1)
q3u:5(2)
q4/2u:5(3)
fswindowu:5(4)
.u:5(5)
qPrevious Bufferu:5(6)
q5u:0(q1)
q:0(q2+1)u5
q2[5q2-q1<q:0(q5)u:0(q5+1)q5-1u5>]5
q:5(0)m(m.mSelect Buffer)
qBuffer Nameu:5(0)
q:.b(q:5(0)m(m.m& Find Buffer)+4)u:5(1)
q3+(q4/2)+1u:5(2)
(q4-1)/2u:5(3)
fswindowu:5(4)
.u:5(5)
q5u:0(q1+1)
q2-1"Efsrefreshm.vSingle Window Refresh
m.m& Many Window Refreshfsrefresh'
q0uWindow Data
q1u3q1+1u4"nq3(q4u3)u4'
q3uPrevious Window
q4uCurrent Window
q2+1uNumber of Windows
m(m.m& Goto Current Window)
m(m.m& Show Separators)
0,q1m(m.m& Redisplay Window)
0,q1+1m(m.m& Redisplay Window)
w9MMM & Check Top Levelwindows
fs^rargp#"n1,m(m.m^R Another Window)'
1uNumber of Windows
1uCurrent Window
0fstopline
0fslines
qSingle Window Refreshfsrefresh
w4MMM & Check Top Levelwindows
qCurrent Window[0[2
qPrevious Window[1[3q1u2q0u3
fs^rargp#"n
-q0"ew'
"lq0+"gq0+u2''
"gqNumber of Windows-+1"gu2'''
m(m.m& Exit Current Window)
q2uCurrent Window
q3uPrevious Window
m(m.m& Goto Current Window)
"em(m.m& Show Separators)'
yMMM & Check Top Levelwindows
qNumber of Windows-2"lw'
qWindow Data[0
qCurrent Window[1
qPrevious Window2[4
qNumber of Windows[3
fs^rargp#"n
"lq1+"gq1u2q1+u1'"#w''
"gq3-+1"gq1u2u1'"#w'''
q3-2"e1,q2m(m.m^R Only One Window)w'
q1-q2"eq4u2'q2-q1"gq2-1u2'q4-q1"gq4-1u4'
q:0(q1)[7
q:7(2)[5
q:7(3)+1[6
q1-1"eq5u:(q:0(2))(2)'
"#q5+((q6+1)/2)u:(q:0(q1+1))(2)'
q1u5(q3-q1)<q:0(q5+1)u:0(q5)%5>
0u:7(1)q7u:0(q3)
q3-1uNumber of Windows
q2uCurrent Window
fsheight-(fsecholines)u:(q:0(q3))(2)
1u5q3-1<q:(q:0(q5+1))(2)-q:(q:0(q5))(2)-1u:(q:0(q5))(3)%5>
q0uWindow Data
1,q4m(m.m^R Change Other Window)
q1-1"n0,q1-1m(m.m& Redisplay Window)'
q3-q1"g0,q1m(m.m& Redisplay Window)'
m(m.m& Goto Current Window)
w$qNumber of Windows-1"ew'
MMM & Check Top Levelwindows
qNumber of Windows[1
qCurrent Window[2
qPrevious Window[3
fs^rargp#"e%3w'
"#"lq3+"gq3+-q2"nq3+u3'''
"gq1-+1"g-q2"nu3''''
q3-q2"e%3w'q1-q3"l1u3'q3-q2"e%3'
q3uPrevious Window
m(m.m& Show Separators)
)qNumber of Windows-2"lw'
MMM & Check Top Levelwindows
qWindow Data[0
qNumber of Windows[1
fsheight-(fsecholines)[2
0[5q1+1<q2*q5/q1u:(q:0(q5+1))(2)%5>
1u5q1<q:(q:0(q5+1))(2)-q:(q:0(q5))(2)-1u:(q:0(q5))(3)%5>
q0uWindow Data
m(m.m& Goto Current Window)
:m(fsrefresh)
wVqNumber of Windows-2"lw'
MMM & Check Top Levelwindows
.[2fnq2:j[2
q:Window Data(qPrevious Window)[0
q:0(2)f[topline
q:0(3)f[lines
q:0(1)[..O
q:0(4)f[window
q:0(4):j
-1f[dforce
fs^rargp-5"e@m(m.m^R Next Screen)'
"#f@m(m.m^R Next Screen)'
0@v
.u:0(5)fswindowu:0(4)
q0u:Window Data(qPrevious Window)
w"q:(qWindow Data)(qCurrent Window)[0
q:0(2)fstopline
q:0(3)fslines
q:0(0)m(m.mSelect Buffer)
q:0(5):j
q:0(4)fswindow
q:0(6)uPrevious Buffer
wnq:(qWindow Data)(qCurrent Window)[0
qBuffer Nameu:0(0)
q:.b(q:0(0)m(m.m& Find Buffer)+4)u:0(1)
fstoplineu:0(2)
fslinesu:0(3)
fswindowu:0(4)
.u:0(5)
qPrevious Bufferu:0(6)
q0u:(qWindow Data)(qCurrent Window)
wm(m.m& Show Separators)
qSingle Window Refreshf"n[1m(q1(]1))'
0f[refresh1[1
qNumber of Windows<0,q1m(m.m& Redisplay Window)%1>
w#-qCurrent Window#"n
.[1fnq1j[1
q:(qWindow Data)()[1
q:1(3)f[lines
q:1(2)f[topline
q:1(4)f[window
q:1(1)[..O
q:1(4):j
-1f[dforce0u..h@v
'w3.[1fnq1j[1
qWindow DataPrevious Window[12[2
fs%tosaif[Sail
0f[refresh
1f[lines
0f[window
0f[topline
f[bbindgWindow Separator String0j
qNumber of Windows-1<
q:(q:0(q2))(2)-1fstopline
0j2di--0jq2-q1"ediv'wq1-q2+1"edi^'dq2-1\
-1f[dforce0u..h@v
f]dforce
%2>f]bbind
wY[0q0"e1,m(m.m& Read Line)Window Separator Substring: u0'
fq0"ew'
q0m.vWindow Separator
q0[1(fswidth-2)/fq0-1<:i110>
q1m.vWindow Separator String
qNumber of Windows-1"gm(m.m& Show Separators)'
wqNumber of Windows-2"lw'
qCurrent Window-1"ew'
MMM & Check Top Levelwindows
m(m.m& Exit Current Window)
qWindow Data[0
qCurrent Window[1
qNumber of Windows[2
q1[3
0[9
1[4fs^rargp#"nu4'
fstopline[5
q4"l
fslines+q4-1"lw-(fslines)+1u4'1u9'
q4"g
q5-q4-2"lwq5u4''
q5-q4u5
q1-1<q5-q:(q:0(q3-1))(2)-1"g0;'
q5-q:(q:0(q3-1))(2)-1"eq5-1u5'
q3-1u3>
q5u:(q:0(q1))(2)
q1-q3"n
q3u4q1-q3<q:0(q4)[9%4>
q3u4q1u5q2-q1+1<q:0(q5)u:0(q4)%4%5>
q2-(q1-q3)+1u4q1-q3<0u:9(1)q9u:0(q4)]9%4>
q2-(q1-q3)u2q2uNumber of Windows
q3u1q1uCurrent Window'
fsheight-(fsecholines)u:(q:0(q2+1))(2)
1u4q2<q:(q:0(q4+1))(2)-q:(q:0(q4))(2)-1u:(q:0(q4))(3)%4>
m(m.m& Goto Current Window)
m(m.m& Show Separators)
q9"n0,q1-1m(m.m& Redisplay Window)'
wqNumber of Windows-2"lw'
qCurrent Window-qNumber of Windows"ew'
MMM & Check Top Levelwindows
qWindow Data[0
qCurrent Window[1
1[4fs^rargp#"nu4'
q4"l
fslines-q4-1"lw-(fslines)+1u4'
q:(q:0(q1))(3)+q4[2q2fslineswq2u:(q:0(q1))(3)]2
q:(q:0(q1+1))(2)+q4u:(q:0(q1+1))(2)
q:(q:0(q1+1))(3)-q4u:(q:0(q1+1))(3)
m(m.m& Show Separators)
0,q1+1m(m.m& Redisplay Window)
w'
q4"g
w'

WINDOWWindow systemS Setup window system7^R Split the current window but stay in the old one5^R Split the current window and go to the new one(^R Delete all but the current window^R Go to the OTHER window8^R Delete the current window. Also takes an argument'^R Pick a different previous window0^R Average the windows already on the screen6^R Scroll the other window by the indicated amount,S Make the Current Window really current!S Deselect the current window.S Redisplay the many windows on the screen6S Redisplay the window indicated by the second arg-S Show the separators between the windows+^R uses string argument or reads a line4^R move the upper boundary of the current window3^R Move the bottom of the current window aroundp& Setup WINDOW Library
^R Split Window Stay
^R Split Window
^R Only One Window
^R Another Window
^R Delete Window
^R Change Other Window
^R Average Windows
^R Scroll Other Window
& Goto Current Window
& Exit Current Window
& Many Window Refresh
& Redisplay Window
& Show Separators
^R Set Window Separator
^R Grow Window Top
^R Grow Window Bottom
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2