Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/mwindow.elib
There are no other files named mwindow.elib in the archive.
P W
[0+8+FQ(+4)[1
0FO1 0F"G+Q1 '
+FQ()+4U1
FQ1"L0 '
,Q1:M(Q1+4(]1]0))
B z O ) [ q h 9 s "
i W - [ 7 C N
d Y ~ f $ t W } G !m K 5 0 \ ? s M n ] ! k D x o S # !T 3 !: A 0 O _ !$ o | z e ` #% & 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~K 0FO..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*----------[10FO..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 List 1Control-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)
w 1,m(m.m^R Split Window)w qNumber 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 Windows[2q2-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)
w 9 MMM & Check Top Levelwindows
fs^rargp#"n1,m(m.m^R Another Window)'
1uNumber of Windows
1uCurrent Window
0fstopline
0fslines
qSingle Window Refreshfsrefresh
w 4 MMM & 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)'
y MMM & Check Top Levelwindows
qNumber of Windows-2"lw '
qWindow Data[0
qCurrent Window[1
qPrevious Window[2q2[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)
w V qNumber 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
w n q:(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)
w m(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
'w 3 .[1fnq1j[1
qWindow Data[0qPrevious 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
w Y [0q0"e1,m(m.m& Read Line)Window Separator Substring: u0'
fq0"ew '
q0m.vWindow Separator
q0[1(fswidth-2)/fq0-1<:i1 1 0>
q1m.vWindow Separator String
qNumber of Windows-1"gm(m.m& Show Separators)'
w qNumber 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)'
w qNumber 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 '
WINDOW Window system S 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 screen6 S 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