Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/marker.elib
There are no other files named marker.elib in the archive.
(W
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   Qh&uN.
\j*2L@

i&
+7*A%H;& Kill MARKER Library& Setup MARKER LibraryAccess MarkerMake Marker

PophMark'^R Exchange Point and Updating Mark^R Set/Pop Updating Mark~DIRECTORY~~DOC~ & Kill MARKER Library ~DOC~ & Setup MARKER Library~DOC~ Access Marker~DOC~ Make Marker~DOC~ Pop Mark~DOC~ Push Mark-~DOC~ ^R Exchange Point and Updating Mark"~DOC~ ^R Set/Pop Updating Mark~DOC~ ~Filename~~Filename~

~INVERT~10FO..qMARKER Setup Hookf"n[0m0'
Q.@M.vMARKER Save ^@
m.m^R Set/Pop Updating MarkU.@
Q:.x()M.vMARKER Save ^X^X
m.m^R Exchange Point and Updating MarkU:.x()
k0FO..qMARKER Kill Hookf"n[0m0'
0FO..qMARKER Save ^@F"NU.@'
0FO..qMARKER Save ^X^XF"NU:.x()'
$FSTopBuf-Q..O"N:i*W
:I*NTB	Not in Top Level BufferFSErr'
FSNewCng
1,FMarker Register: [1
FF&1"E.'"#'(
FSCngBuf[..o
)*Z/10(
)+(./10)U1
=FSTopBuf-Q..o"N:i*W
:I*NTB	Not in Top Level BufferFSErr'
FSNewCng
[2[3
1,FMarker Register: [1
FSCngBuf[..o
Q1*10/ZU3
(Q1-(Q3*Z/10))*10U2
<Q2-.@;
Q2+5FSWord-Q3F"L(
)-(Q2FSWord)F"G(
)*(-1)+Q3U3
'"#
Q3+(Q2FSWord)U3
'W'W
Q2+10-ZF"N+Z'U2
>
Q3*Z/10+(./10)U1
]..o
:F"LQ3J'
"#Q3'}FF"E.:.M(M.MPush Mark)0'
-4"E.:W.M(M.MPush Mark)
2:<WM(M.MPop Mark)J>0'
-15"G.(1:<WM(M.MPop Mark)W>)J0'?.(WW)F(:W)(
FF"EM(M.MPop Mark)J')M(M.MPush Mark)
0[x
FF"E.'"#'M(M.mMake Marker)x
0@FO..qMark StackF"EW10*5FSBCONSF(M.LMark StackW)'[..o
Qx,.FSWordW.+5-ZF"L+Z'J
u[x[y[z
0@FO..qMark StackQx"E0'
Qx[..o.-5F"L+Z'J./5Uz]..o
M(M.MAccess Marker):x(Qz)Uy
:F"LQyJ'
"#Qy'
MARKER5Provides TECO end of implementing updating marks.HS Run MARKER Setup Hook or set ^@ and ^X^X (undone on kill library).=S Run MARKER Kill Hook or undo definitions of ^@ and ^X^XC Creates a new marker in the current buffer.
 The variable containing the marker should be passed as a string parameter
 to the routine; it cannot be register 1.
 The first numeric parameter should be the position of the marker.
 If omitted, point will be used.  Markers should be exclusively local
 variables since accessing them outside of their own buffers causes failure.HC Get the current value of the marker.
 Variable name passed the same as for Make Marker; it can't be regs 1, 2, or 3.
 If called from ^R, jumps to Marker's position; otherwise returns position.f^R Sets or pops an updating mark.
Also affects the TECO Mark for the sake of routines which check that.
With no ^U's, pushes . as the mark.
With one ^U, pops the mark into .
With two ^U's, pops the mark and throws it away.^R Jump to updating mark after
settting updating mark at point.  If given an argument, it jumps to the TECO
mark instead.  Thus ^R Universal Argument ^R Exchange Point and Updating Mark
^R Exchange Point and Updating Mark will set the updating mark to the TECO mark 
and ^R Exchange Point and Updating Mark ^R Exchange Point and Updating Mark
will set the TECO mark to the updating mark.}C Push argument onto the updating mark stack.
If no argument is supplied, push point.  Error if not in top level buffer.C Pop from updating mark stack.
If called from ^R, jump to position popped, else return it.
Error if not in top level buffer.#& Setup MARKER Library
& Kill MARKER Library
Make Marker
Access Marker
^R Set/Pop Updating Mark
^R Exchange Point and Updating Mark
Push Mark
Pop Mark
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2