Google
 

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/kbdalt.elib
There are no other files named kbdalt.elib in the archive.
PW
[0+8+FQ(+4)[1
0FO10F"G+Q1
'W+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
  ]'r}6BNX.;DM
t
/8
/
;
6@o|do#.AI2A1>$2$3xM]EQN\am@OhxSaDR#- c i& Setup KBDALT Library&:i*m.vLast Kbd Macro
:i*Kbd Macro Querym.vKbd Macro Query
20.*5fsqvectoru..m
q..m[..ohk
0FO..QKBDALT Setup HookF"N[0M0'
m.m^R Start Kbd Macrou:.x(()
m.m^R End Kbd Macrou:.x())
m.m^R End Named Kbd Macrou:.X(>)
m.m^R Call Lastu:.x(E)
m.m^R Kbd Macro Queryu:.x(Q)
0& Run Kbd Macro<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'
0& Immediate Kbd Macroq..m[..o
fstyisource"ehk'
zj15,0i
-1fsbackstr,.-15fsword
37,.-10fsword
ff"e1'"#',.-5fsword
m.m& Run Kbd Macrofstyisource
0^R Call Last Kbd Macrof:mLast Kbd Macro^R Start Kbd Macro0fsbconsm.vKbd Macro Defining Body
0m.vKbd Macro Defining Index
m.m& Define Kbd Macrofstyisink
fsvers-751"g1fsmodech'
0& Define Kbd MacrorqKbd Macro Defining Body[..ozj
fstyibeg-(fstyicount-1)"e
zuKbd Macro Defining Index'
/200.i&177.i0^R End Kbd Macrofstyisink"e@fenimfserr'
qKbd Macro Defining Body[..o
qKbd Macro Defining Indexj.,zk
ji!temp!fm(m.m& Immediate Kbd Macro)
hx*m.vLast Kbd Macro
Q..o(]..o
)fsbkill
0fstyisink
fsvers-751"g1fsmodech'
-1"e0'
f"g-1'mLast Kbd Macro'
0Name Kbd MacroD1,fFunction name: [1
fq1"gqLast Kbd Macrom.vMM 1'
@ftPut kbd macro on key: 
m(m.m& Read Q-reg)[2
f=2'
f=2"e0'
q2m(m.m& Check Redefinition)
qLast Kbd Macrou2
0View Kbd MacroX1,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^R Kbd Macro Queryff"n0f[tyisink
0f[tyisource
[..j:i..jKbd Macro Edit
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
q1fsrereadWrite Kbd Macro Fileq5,1fWrite Macro File[1
fq1"EFSUName[1
:i1<1>EMACS.MACROS'
[2[3f[BBind
0[..F
-1F[^RInhibit
1:<ER1>"E
@FTUpdate old version
1M(m.m& Yes or No)"L
@Y'
"#EC''
:EW1
Z"GPWHK'
@FT(Type macro commands, CR to finish)

:i..0
m.m^R Extended Command
<M(m.m& Read Q-reg)u2
f=2
Q2u3
Q3-QX"E
M(m.m& Read Command Name)Full name of command: u3
Q3"E!<!>'
:i2MM 3
0@FO..Q2u3
@FT
(continue) '
Q3FP-101"E
F~(0,6:G3)!Temp!"E
G215.i12.i
G315.i12.i14.i
PWHK
!<!>''
Q2M(m.m& Command Print)
FT not a kbd macro
>
:EF
FSOFileu1
@FT1 written.

0FSEchoActive
0u..H
0Read Kbd Macro File'5,fRead Macro File[1
fq1"EFSUName[1
:i1<1>EMACS.MACROS'
F[BBind[2
ER1@Y
0j
<.-z;
1@L-2D
0,.FX2
1@L-2D
(0,6F~!Temp!)(0,1A-14.)"N
:i*IMD Illegal Macro DefinitionFSERR'
0,.FX3
0:G2-M"E
Q3M.V2'
"#Q3u2'
"E
Q2M(m.m& Command Print)
FT, '
D>
"EFTdone
'
0& Check Redefinition}[1
q1[0
q0FP-101"L
200.@fs^rinit-q0"E'
Q0"E'
q1M(m.m& Command Print)
Q0-(AFS^RInit)"E
FT normally inserts itself'
"#FT runs the function [2
Q0FP+4"EM(m.m& Load BARE)'
Q0M(m.m& Macro Name)F"NU2
FT2'
"#FT(unknown)''
FT.
Are you sure you want to redefine it'
"#FTRedefine the 
(FQ0-7"'L)(f~(0,6:g0)!Temp!)"E
FTkbd macro '
"#Q0M(m.m& Macro Name)F"N[2
FTimpure string 2 on '
"#FTgarbage on ''
q1M(m.m& Command Print)'
M(m.m& Yes or No)"EFG0FSERR'
0u..H
Hf& Command Print[0[1
Q0:F"NF0U1'
"#0:G0-:"E
F~(1,3:G0).X"NOLose'
FT^X 
m(3,FQ0:G0)u1'
"#OLose''
q1M(m.m& Charprint)

!Lose!
FT0
^R End Named Kbd Macro6F@M(m.m^R End Kbd Macro)
:M(m.mName Kbd Macro)~FILENAME~
KBDALT~DOC~ ~FILENAME~@Alternate kbd macro pkg that allows dumping and restoring.
 ~DOC~ & Setup KBDALT Library6S Put commands on keys.  Create execution stack.
~DOC~ & Run Kbd Macro?S This is the FS TYI SOURCE for running keyboard macros.
~DOC~ & Immediate Kbd Macro$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.
 ~DOC~ ^R Call Last Kbd Macro^^R Run the last defined temporary keyboard macro.
A numeric argument is a repeat count.
~DOC~ ^R Start Kbd Macro#C Begin defining keyboad macro.
After you type this command, everything you type becomes
part of the accumulating keyboard macro as well as being executed.
~DOC~ & Define Kbd Macro3S 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.
~DOC~ ^R End Kbd MacroZC 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.
~DOC~ Name Kbd Macro C 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.
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 C-X may be used.
~DOC~ View Kbd MacroKC 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.
~DOC~ ^R Kbd Macro Query>^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.
~DOC~ Write Kbd Macro File~C Dumps a file of kbd macros.
Give output filename as string argument; default is EMACS.MACROS.
Then type each macro-invoking character that you want dumped.
To dump extend commands, just precede them with ^R Extended Command.
Finish with CR.
~DOC~ Read Kbd Macro File+C Reads in a file of kbd macros
that was written by Write Kbd Macro File.  Filename is string argument,
defaults to EMACS.MACROS.  Pre-comma arg inhibits printing.
~DOC~ & Check RedefinitionaS Verify that a certain command can be redefined.
If the char is already defined, asks user for confirmation before
redefining it.  The command is specified with a q-register name in a
string passed as a numeric arg.
~DOC~ & Command PrintUS Prettyprints a ^R q-reg given as a string.
Pass the string as a numeric arg.
 ~DOC~ ^R End Named Kbd Macro^R Ends macro definition and assigns to a character.
I.e. is ^R End Kbd Macro followed by Name Kbd Macro.  Argument
is as with former.
~DIRECTORY~4& Setup KBDALT 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
^R Kbd Macro Query
Write Kbd Macro File
Read Kbd Macro File
& Check Redefinition
& Command Print
^R End Named Kbd Macro

~INVERT~[1<Q1-1U1Q1FP;>Q1