Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/smallsearch.elib
There are no other files named smallsearch.elib in the archive.
( W
[0+8+FQ(+4)[1
0FO1 0F"G+Q1 '
+FQ()+4U1
FQ1"L0 '
,Q1:M(Q1+4(]1]0))
J [ T w d k o H Y
T L 1 X ? o R ` 2 j + q
& Draw Separator & Setup SMALLSEARCH Library ^R Modified ISearch ^R Modified Reverse ISearch ^R Set Screen Size ~DIRECTORY~ ~DOC~ & Draw Separator% ~DOC~ & Setup SMALLSEARCH Library ~DOC~ ^R Modified ISearch% ~DOC~ ^R Modified Reverse ISearch ~DOC~ ^R Set Screen Size ~DOC~ ~FILENAME~ ~FILENAME~
~INVERT~h M.VIsearch Percent
M.VIsearch Screen Size
m.m^R Modified ISearchu.S
m.m^R Modified Reverse ISearchu.R
:FO..QDefault Separator"L
:i*-----(short display)-----M.VDefault Separator'
15FSQVectorM.VShrunk Screen Parms; QIsearch PercentF[%center
QIsearch Screen SizeF"G[1
FSLines"E
F[LinesF[RefreshF[^RDisplay
FNQ1,Q1+1@F
1,Q1M(m.m^R Set Screen Size)''
F@:M(m.m^R Incremental Search)" -@:M(m.m^R Modified ISearch) 0[1FF&1"Nu1'
0FO..QWindow 2 Size"N
@FTUse ^X ^ to hack screen size in 2-window mode
0FSEchoActive
0 '
Q1"E
FSLinesF"N[2
0FSRefreshw0FS^RDisplayw0FSLines
q2,q2+1@F'
0U:Shrunk Screen Parms(0)
H '
Q1"LFG0FSErr'
Q1+(FSEchoLines)+1-(FSHeight)"G
@FTArgument too big
FG0FSErr'
FSLinesF"N[2
Q1-Q2"E0 '
Q2,Q2+1@F'
FF&2"N
QShrunk Screen Parms[S
Q1u:S(0)
FSWindow+Bu:S(1)
M(m.m& End Of Screen Address)u:S(2)'
"#Q1FSLines'
m.m& Draw SeparatorF(FS^RDisplay)FSRefresh
H FSLines"E
QShrunk Screen[S
Q:S(1)-.:"G
Q:S(2)-."G
0 ''
Q:S(0)FSLines'
0FS^RDisplay
QDefault Separator[1
FSLinesF[TopLine
:FT 1
0u..H
0 SMALLSEARCH4 Redefinition of search commands to shrink screen S Setup TV commands. ^R Incremental Search with modified display.
See documentation of ^R Incremental Search for details.
Tries to position cursor Q$Isearch Percent$ of the
way down the page (default is 0, i.e. on top line).
If Q$Isearch Screen Size$ is positive, shrinks
window to that many lines during search.J ^R Reverse incremental search,
i.e. a negative ^R Modified ISearch .d C Shrinks display to specified size.
Give as numeric argument the number of lines to display.
No arg, or arg of zero, restores display to full screen.
Precomma arg is from Isearch, says not to shrink until display changes S Draws a line of dashes,
or whatever's in Q$Default Separator$, on the bottom line of the
shrunken window we're using. For use as a FS Refresh macro.y & Setup SMALLSEARCH Library
^R Modified ISearch
^R Modified Reverse ISearch
^R Set Screen Size
& Draw Separator
T +8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0 '>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2