Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/kbdmac.elib
There are no other files named kbdmac.elib in the archive.
xW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   5
&u1K>mGTpajrs

C}

r*'W1 &@dNX^9jz'=
iA"$/)?<L!'ZWhry([& Check Redefinition& Define Kbd Macro& Immediate Kbd Macro& Run Kbd Macro& Setup KBDMAC LibraryKbd Test End of BufferName Kbd MacroView Kbd MacroWrite Kbd Macro^R Call Last Kbd Macro^R End Kbd Macro^R Kbd Macro Query^R Start Kbd Macro~DIRECTORY~~DOC~ & Check Redefinition~DOC~ & Define Kbd Macro~DOC~ & Immediate Kbd Macro~DOC~ & Run Kbd Macro ~DOC~ & Setup KBDMAC Library ~DOC~ Kbd Test End of Buffer~DOC~ Name Kbd Macro~DOC~ View Kbd Macro~DOC~ Write Kbd Macro ~DOC~ ^R Call Last Kbd Macro~DOC~ ^R End Kbd Macro~DOC~ ^R Kbd Macro Query~DOC~ ^R Start Kbd Macro~DOC~ ~Filename~~Filename~

~INVERT~\m.m^R Start Kbd Macrou:.x(()
m.m^R End Kbd Macrou:.x())
m.m^R Call Lastu:.x(E)
m.m^R Kbd Macro Queryu:.x(Q)
:i*m.vLast Kbd Macro
:i*Kbd Macro Querym.vKbd Macro Query
20.*5fsqvectoru..m
q..m[..ohk<fq..m/5-3[2
q:..m(q2)[0
q:..m(%2)[1
q1:g0*200.+(%1:g0)fsreread
%1u:..m(q2)
q1-fq0"l0'
q:..m(%2)-1u0
q0f"nf"gu:..m(q2)'
37u:..m(q2-1)0'
q..m[..ozj-15d
z"e0fstyisource'
0q..m[..o
fstyisource"ehk'
zj15,0i
-1fsbackstr,.-15fsword
37,.-10fsword
ff"e1'"#',.-5fsword
m.m& Run Kbd Macrofstyisource
0f:mLast Kbd Macro-0fsbcons[1
q1m.vKbd Macro Defining Body
ff"n
mLast Kbd Macro
q1[..o
gLast Kbd Macro
j37dzj'
m.m& Define Kbd Macrofstyisink
fsvers-751"g1fsmodech'
06qKbd Macro Defining Body[..ozj
/200.i&177.i0fstyisink"e@fenimfserr'
0fstyisink
qKbd Macro Defining Body[..o
zjfstyicount-(fstyibeg)*2r.,zk
ji!temp!fm(m.m& Immediate Kbd Macro)
hx*m.vLast Kbd Macro
Q..o(]..o
)fsbkill
fsvers-751"g1fsmodech'
-1"e0'
f"g-1'mLast Kbd Macro'
0<1,fFunction name: [1
fq1"gqLast Kbd Macrom.vMM 1'
FF"E
@ftPut kbd macro on key: 
m(m.m& Read Q-reg)[2
@ft  Go ahead1m(m.m& Yes or No)"e0'
qLast Kbd Macrou2'
0X1,fFunction name: [0
fq0"e@ftCommand key: 
m(m.m& Read Q-reg)u0'
"#:i0MM 0'
q0[1
m.m^R Call Last Kbd-q1"e
qLast Kbd Macrou1
:i0Last Kbd Macro'
f[bbind1:<g1>
j6f~!temp!"n
:i*Not a kbd macrofserr'
js)0,.k
ft
Definition of keyboard macro:


m.m& Charprint[2
jz/2<1a*200.+(2c0a)m2ft >
ft

0'[1
q1[0
fq0+1"g
f~(0,6:g0)!Temp!"n
!lose!!"!:I*Can't clobber specified character 1fserr''
"#Afs^rinit-q0"n
200.@fs^rinit-q0"n
q0"n
olose''''
"ff"n0fstyisink(
0fstyisource(
[..j:i..jKbd Macro Edit
0
)fstyisource
)fstyisink
0'
fstyisource"e0'
[0[1QKbd Macro Query[..j
0fstyisource(0fstyisink(
!Read!
2,m.i@:fiu1fiu0
q0-

"ef+Oread'
q0-"e0Oread'
)fstyisink
)fstyisource
q0-32"e0'
q0-."e1u:..m(fq..m/5-1)0'
q0-"e1u:..m(fq..m/5-1)'
q0f:"l
fq:..m(fq..m/5-3)-2u:..m(fq..m/5-2)
fi'
0fstyisource
q1fsrereadZ101*5fsqvectorM.VTemp Kbd Q-Vector
0U:Temp Kbd Q-vector(0)
<56,FFunction Name (<Return> to quit):  [0
fq0:"G]00;'
Q:Temp Kbd Q-vector(0)+1U:Temp Kbd Q-vector(0)
:I*MM 0U0
[11:<Q0M(M.M& Macro Name)U1>"E
FQ1"G:I*MM 1U0'']1
Q0U:Temp Kbd Q-vector(Q:Temp Kbd Q-vector(0))]0>
Q:Temp Kbd Q-vector(0)"E@ftCommand key: 
m(m.m& Read Q-reg)[0
Q:Temp Kbd Q-vector(0)+1U:Temp Kbd Q-vector(0)
Q0U:Temp Kbd Q-vector(Q:Temp Kbd Q-vector(0))]0'
f[dfile1f[fnamsyntax
etKMAC ELIB
:I*Cfsechodisp
1m(m.m& read filename)Kbd Macro File
f[BBind
[0[1[2[3[4[5[6[7[8[9[P
:I*
M.M^R Call Last Kbd
0[I
0[O
FF"'N[R
0[S
Q:Temp Kbd Q-vector(0)F"G<
Q:Temp Kbd Q-vector(%I)U0
1:<Q0U1>"N
1,(fq0-1):G0U3
:I*A3 is not a function.  It will not be processed.(
)fsechodisp0fsechoactivew45OOmitkbd'
QK-Q1"E
QLast Kbd MacroU1
QI:\U4q1M.VMM Unknown KBD Macro 4
:I*MM Unknown Kbd Macro 4F(U0
)U:Temp Kbd Q-vector(qi)'
.F(UP)(1:<G1>)J
6f~!temp!"N
1,(fq0-1):G0U3
:I*A3 is not a kbd macro.  Omitting writing it to the file.(
)fsechodisp0fsechoactive
w45OOmitkbd'
1UO
QPjm(m.mReplace String) _
jm(m.mReplace String)		
QPjm(m.mReplace String)\\
12i13i10i
.(G(Q:Temp Kbd Q-vector(qi)))J
4F~MM "N
fQ(Q:Temp Kbd Q-vector(qi))FX5
Q5M(M.M& Macro Name)u5
fq5:"Gqi:\u4:I5Unknown KBD Macro 4'
I!5:! 
'
"#4DI!
SW-1Di:! '
.(0l1c.,(FB!2r.)X4)J
I!S 0 Kbd Macro.!
[1
1,m(m.m&_Get_Library_Pointer)KBDMAC"e
m(m.mLoad_Library)KBDMAC'
@:i1\
zji\fm10w13i10i
QR"NOOmitkbd'
J-1u5
Q:Temp Kbd Q-vector(qi)U0
Q0u3
<%5,q3:FU5q5:;
1US
IM.M4U
q5/200.f"g,46I'WIq5I27i13i10i
-1l<:FB ;w-1d95i>
!<!:IDD        4 ==> 
q5&200."N:IDDControl-'
q5&400."N:IDDMeta-'
:IDD5

1l>
F[BBINDGPrefix Char ListJ
:I9
<.-Z;
FB  
2r0X82c
M(:X*)U61c:X71L
.(
-1U5
<%5,Q3F6U5q5:;
1US
zj.(IM.M4U:7(5)13i10i)J
.(<:FB ;-1d95i>)J
@X9zk
!<!:IDD        4 ==> 8 5

>
)J>
F]BBIND
FQ9"GG9'
zj
!omitkbd!>'
QO"E:I*CNothing to savefsechodisp0fsechoactive
OEND'
JetF
i!~Filename~:! !Saved keyboard macro.!13i10i
G(fsdfn1F(u3))13i10i
QS"N
12i13i10i
I!& Setup 3 Library:! !S Setup the keys for this library.13i10i
IThe following key redefinitions will be made:2<13i10i>
f[bbindgd
j<:S!;Excl>
j<!<!:S==> ;
:L-S W1C
1:C;0AU0
Q0-177"E-DIRuboutOloop'
Q0-32"GOloop'
Q0-27"E-DIAltmodeOloop'
Q0-8"E-DIBackspaceOloop'
Q0-9"E-DITabOloop'
Q0-13"E10,1A-10"'N;W-DIReturnOloop'
Q0-10"E-DILinefeedOloop'
Q0-32"E-DISpaceOloop'
-DICntrl-Q0+100.I
!LOOP!>
HFXD
f]bbind
GDI!13i10i
13i10is

W0LI013i10i'
etf
etEMACS
ei@hpef
fsofileu2
:I*AWritten: 2 !Source file (deleted)fsechodisp
ED
0fsechoactive
0fo..q& File PURIFY Loaded"e
m(m.mload library)PURIFY'
m(m.m& Compress Buffer)
m(m.m& Purify Buffer)
etF
ei@hpef
fsofileu2
:I*AWritten: 2  !Library filefsechodisp
0fsechoactive
!end!
M(M.MKill Variable)Temp Kbd Q-vector
0,fstyisource"n
.-z"e0fstyisource''
0
KBDMAC)Defining and calling keyboard macros.4S Put commands on keys.  Create execution stack.=S This is the FS TYI SOURCE for running keyboard macros."S Push a kbd macro onto the execution stack of such.
Supply the repeat count as pre-comma argument
and a string pointer to the macro as post-comma argument.\^R Run the last defined temporary keyboard macro.
A numeric argument is a repeat count.^R Begin defining keyboad macro.
After you type this command, everything you type becomes
part of the accumulating keyboard macro as well as being executed.
Numeric arg means append to last defined keyboard macro,
repeating its definition as if you typed it in from scratch.1S FS TYI SINK for defining kbd macros.
Takes characters typed and accumulates them in a buffer
which will be formed into a keyboard macro when the definition is finished.Y^R Terminate definition of a keyboard macro.
All that you have typed since starting the definition,
except this command itself, becomes the definition.
An argument means re-execute the macro immediately, with the
argument as repeat count, counting defining the macro as once.
^R Call Last Kbd Macro re-executes the last macro defined.1C Give a name to the last kbd macro defined.
A function is created with the name you specify,
which when invoked runs that keyboard macro.  (Return means give no name.)
Then, you are asked to give the command character to
put the macro on.  Type C-G if you don't want one.
Combinations with prefix characters such as Altmode and C-X may be used.
Call this function with any numeric argument to inhibit its asking for a key.IC Print definition of a keyboard macro.
Supply a suffix string argument containing the command name.
If the string argument is null, you will be asked to type
the character which runs the macro.S Verify that a certain command can be redefined.
Do not allow a command to be redefined unless it is undefined,
self-inserting, or a string starting with !Temp!.
The command is specified with a q-register name in a string
passed as a string pointer.<^R Query and continue macro execution.
If called from a macro, reads a character:
Space continues execution.
Rubout terminates this repetition of the macro.
Altmode terminates all repetitions of the macro.
. terminates after the end of this repetition of the macro.
^R enters a recursive edit;  when you exit, you are asked again.
^L clears the screen and asks you again.
Anything else exits all macros and is reread as a command.

With an argument, we unconditionally enter a recursive editing level
and proceed with the macro when it is exited.  This is the same as
what we do with no argument if the user were to type ^R Space;
but it is done even when the macro is being defined.qC Write the keyboard macro(s) to a file.
	Writes one or more keyboard macros to a file.  The functions to
write are given as string arguments terminated by a null string
argument.  If there are no functions then you will be prompted for ONE
key to save.  If no errors in the preparation have occurred then you
will be asked for the filespec where to write the library (default
KMAC.ELIB).  You need only specify the file name.
	If the keyboard macros are bound to keys then those keys will
also be rebound upon the loading of the library, unless a numeric
argument is given to this function in which case just the function are
saved.
	To reload the library the user need only give the command
M-X Load Library<esc>libname, where libname is the name of the library
to load.
	A source file is written out and then deleted using the filename.EMACS
as the file spec.3C Quit KBD macro execution if at end of buffer.	& Setup KBDMAC Library
& Run Kbd Macro
& Immediate Kbd Macro
^R Call Last Kbd Macro
^R Start Kbd Macro
& Define Kbd Macro
^R End Kbd Macro
Name Kbd Macro
View Kbd Macro
& Check Redefinition
^R Kbd Macro Query
Write Kbd Macro
Kbd Test End of Buffer
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2