Google
 

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/c108.elib
There are no other files named c108.elib in the archive.
xW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   LBZ
hQz@M49(O1=@{LhW`Vp"yG+TU*b+t'T'F(3''*T61@-G-L& Concept Disable Keypad& Concept Enable Keypad%& CONCEPT Prefix Character Driver& Prefix Describe& Setup C108 Library& Skip to CharCONCEPT Default Key InfoSet Concept KeySet CONCEPT Terminal Width^R Bottom of Screen^R Repeat Skip/Zap^R Reverse Skip^R Reverse Zap to Character^R Scroll Down^R Scroll Up^R Skip to Character^R Top of Screen^R Zap to Character~DIRECTORY~"~DOC~ & Concept Disable Keypad!~DOC~ & Concept Enable Keypad+~DOC~ & CONCEPT Prefix Character Driver~DOC~ & Prefix Describe~DOC~ & Setup C108 Library~DOC~ & Skip to Char"~DOC~ CONCEPT Default Key Info~DOC~ Set Concept Key$~DOC~ Set CONCEPT Terminal Width~DOC~ ^R Bottom of Screen~DOC~ ^R Repeat Skip/Zap~DOC~ ^R Reverse Skip%~DOC~ ^R Reverse Zap to Character~DOC~ ^R Scroll Down~DOC~ ^R Scroll Up~DOC~ ^R Skip to Character~DOC~ ^R Top of Screen~DOC~ ^R Zap to Character~DOC~ ~FILENAME~~FILENAME~
~INVERT~128M(M.MMake Prefix Char).ZU.\
128M(M.MMake Prefix Char).YU
M.M& Concept Prefix Character DriverU.P
M(M.M& Load Bare)
M.MSet Concept Key
15MS^R Prefix Meta
35MS^R Prefix Control
16MS^R Delete Character
36MS^R Kill Line
Q.R,17MS
37MS^R Previous Page
Q.S,18MS
38MS^R Next Page
19MS^R Mark Paragraph
39MS^R Fill Paragraph
1MS^R Copy Region
21MS^R Kill Region
2MS^R Un-kill
22MS^R Un-Kill Pop
3MS^R Query Replace
23MS^R Correct Word Spelling
4MSFind File
24MSSelect Buffer
5MS^R Save File
25MSList Buffers
6MS^R Return to Superior
26MS^R Exit
7MS^R Instant Extended Command
8MS^R Reverse Skip
28MS^R Reverse Zap to Character
9MS^R Skip to Character
29MS^R Zap to Character
10MS^R Backward Word
30MS^R Backward Kill Word
11MS^R Forward Word
31MS^R Kill Word
12MS^R Prefix Control-Meta
13MS^R Prefix Control
14MS^R Prefix Meta
32MS^R Call Last Kbd Macro
33MS^R End Kbd Macro
34MS^R Start Kbd Macro
41MSCONCEPT Default Key Info
42MS^R Forward Paragraph
54MS^R Backward Paragraph
43MS^R Next Screen
55MS^R Previous Screen
44MS^R Up Real Line
45MS^R End of Line
46MS^R Backward Character
47MS^R Beginning of Line
48MS^R Forward Character
49MS^R Scroll Up
61MS^R Scroll Down
50MS^R Down Real Line
51MS^R Goto End
63MS^R Goto Beginning
64MS^R Prefix Meta
65MS^R Set/Pop Mark
0FO..QExit to Inferior HookF"E
:I*M.VExit to Inferior HookW:I*'"#'[1
@:IExit to Inferior Hook|1WM(M.M& Concept Disable Keypad)|
0FO..QExit to superior hookF"E
:I*M.VExit To Superior HookW:I*'"#'[2
@:IExit to superior hook|2WM(M.M& Concept Disable Keypad)|
0FO..QReturn From Inferior HookF"E
:I*M.VReturn From Inferior HookW:I*'"#'[3
@:IReturn From Inferior Hook|3WM(M.M& Concept Enable Keypad)|
0FO..QReturn From Superior HookF"E
M.VReturn From Superior HookW:I*'"#'[4
@:IReturn From Superior Hook|4WM(M.M& Concept Enable Keypad)|
35FSQVector[1
:i*Skip to: U:1(3)
:i*Skip back to: U:1(4)
:i*Zap to: U:1(5)
:i*Zap back to: U:1(6)
Q1M.VSkip/Zap State Vector
]1
0FO..QCONCEPT Setup HookF"N[1M1'
:M(M.M& Concept Enable Keypad)l@:I*|4 0 4 1 4 2 4 3 4 4 4   4 ! 4 " 4 # 4 $ |FSImageOut
@:i*|X x !! x!"!|FSImageOut
0@:i*| ^x|FSImageOut
0^[0w-1[1
0F[HelpMac
-Q.X"EM.I'
FIU0
-Q.Z"EFIU1'
FQ()-640"LQ0:FCU0'
F]HelpMac
Q0-4110."N
Q0u..1
Q:()(Q0)F"EQ:()(Q0:FC)F"EW:I*FG'''
Q1"L
FS^RLASTU0'
Q0,(Q0@FS^RCMAC)M(M.M& Prefix Describe)
:I*0 M(M.M& Load BARE)
[0[1[2[3[4
FF"E1,M.I@FIU0'
Q0"GQ0FS^RINDIRECTU0
Q0U1'
Q1FP-101"NONOTPREFIX'
F=1!PREFIX!-9"N
!NOTPREFIX!
Q0M(M.M& CHARPRINT)
FT is not an escape-prefix character.
'
M.M& Maybe Flush
F[SSTRING
F[BBIND
G1
JSQ0KSM.P3R.,ZK
hx4q4u3
F]BBIND
FF"EFTHere is info on the prefix command 
Q0M(M.M& CHARPRINT)FT.
'
FSLISTEN"EFTType a subcommand to document (or "*" for all):
!''!'
M.I@:FIU1FIU2
Q0"GQ0M(M.M& CHARPRINT)FT '
Q2-*"N
F~4.Z"E
FI'
FQ3/5-Q2"GQ:3(Q2)'"#0'"E
Q2:FCU2'
Q1M(M.M& CHARPRINT)FT 
Q2*5-FQ3+1"GFTis not defined.
'
Q:3(Q2)"EFTis not defined.
'
:i*:4(2),Q:3(Q2):M(M.M^R DESCRIBE)'
FThas these subcommands:

-1U1FQ3/5<
Q:3(%1)"N
MAFT   
Q1,Q:3(Q1)M(M.M& ^R Briefly Describe)'
>
-FF-1"G[2[1'
"#9,fFunction: [1
m.m1[2'
FF&1"N
-15"LQ2U:.Z(+4)0'
-20"LQ2U:.Z(-15+0)0'
-40"L!"!
-21:G(:I*%&'()*+,-./CDE !"#$)[3!'!
Q2U:.Z(Q3)
0'
-66"L!"<!
-40:G(:I*0+{-;`>?=[<]00|.00000\0 ')[3!>!
-63"E137.U3'
Q2M(M.M& Macro Name)U1
:\[4
Q3-0"E:I*Cant set that key (4 to 1)FSErr'
Q2U:.Y(Q3)
0'
:\[4
:I*Key argument (4) out of rangeFSErr'
Q2M(m.m& Macro Name)U1
@FTPut 1 on special key: 
:i*M.I
FI[4
Q4-"E
FIU1
FI
Q2U:.Z(Q1)0'
Q4-33."E
FIU1
Q2U:.Y(Q1)0'
:i*Not a special keyFSErr,"L-1'"#0':M(m.m^R Move to Screen Edge)$-1:M(m.m^R Move to Screen Edge)*FF"E1'"#F':M(M.M^R Next Screen)
.FF"E1'"#F':M(M.M^R Previous Screen)

:ftINSRT -------------------------------------                cursor pad
. . . | Ctrl-  |kill lin|back pag|fwd page|       ----------------------------
CLEAR | Meta-  |del ch  |bck srch|search  |       | reser- |reserved|back pgf|
      -------------------------------------       |  ved   | HELP!  |fwd pgf |
SEND  -------------------------------------       ----------------------------
 . . .|fill pgf|kill rgn|unkl prv|spell wd|       |bck wind|   ^    |======= |
F3    |mark pgf|copy rgn| unkill |qry repl|       |fwd wind|   up   |end line|
      -------------------------------------       ----------------------------
F4    -------------------------------------       |   <    |======= |    >   |
. . . |slct buf|list buf|exit sub|fn->lisp|       |  left  |beg line|  right |
F7    |find fil|save fil|  EXIT  |ins Xtnd|       ----------------------------
      -------------------------------------       |scrol up|   V    |beg file|
F8    -------------------------------------       |scrol dn|  down  |end file|
 . . .|back zap|fwd zap |bck k wd|fwd k wd|       ----------------------------
F11   |bck skip|fwd skip|bck word|fwd word|
      -------------------------------------      F14      F13      F12
       ----------         --------------      ----------------------------
 BREAK |set mark|     RUB |bck del char|      |beg macr|end macr|call mac|
       ----------         --------------      | Meta-  |  Ctrl- |  C-M-  |
  * * TYPE ANY CHARACTER TO CONTINUE * *      ----------------------------

[0
F"E
FSWidth-80"G80'"#132'U0'
"#
Q0-79"G
Q0-133"L
80U0'''
Q0-80"G
:@I*|"|!'!FSImageOut'
"#:@I*|!|FSImageOut'
Q0-1FSWidth
\0U:Skip/Zap State Vector(2)
.F(F@M(m.m& Skip to Char))M(m.m& Maybe Push Point)
09[0[1
FF-1"GU0'
"#
QSkip/Zap State Vector
Q:S(Q:S(2)"NQ1"L6'"#5''"#Q1"L4'"#3'')M.I
FI:FCU0
Q0u:S(0)Q1u:S(1)'
Q1"G:C"EFG0FSErr''
Q1:S0F(WQ1"GR')"E
FG0FSErr'
1$0-@:M(M.M^R Skip to Character)g.[1
1u:Skip/Zap State Vector(2)
F@M(m.m& Skip to Char)
"LC'
.:q1J
:M(M.M^R Kill Region)#0-@:M(M.M^R Zap to Character)[0[1QSkip/Zap State Vector[2
q:2(2)"Em.m^R Skip to Character'"#m.m^R Zap to Character'u0
q:2(1)"L0-Q1U1'
Q1u:2(1)
q:2(0),q1:M0C1086Commands to use Concept function keys--revised JQJ#S Sets up concept function keys.
  Function keys F1-14 and the "funny" keys transmit by default ^\
char CR, so ^\ becomes a prefix character, with dispatch in .Z
  The cursor keypad (except MC and RESET) transmit ESC char, so ESC
becomes a prefix character, with dispatch in .Y
  Q.P gets a modified Prefix driver to make this all work.
  If $CONCEPT Setup Hook$ is defined, it is run afterwards to make
any additional assignments or changes; it can access the function Set
Concept Key (q.v.) by running MS, e.g.  <number>MS<function>S Set the cursor pad to transmit
This function should be called when starting or returning to EMACS
to reset the cursor pad and special function keys.8S Set the cursor pad to execute
This function should be called when exiting from EMACS to reset the
cursor pad and special function keys to their normal (local
execution) state.?S M.P for Concept: handles prefix character.
Given a q-vector as argument, it reads a character
and returns the q-vector element it selects.
Difference between this and standard is that ? is not treated as help,
and an extra character (the cr) is eaten if ^\ was the prefix.
The character read is left in Q..1.`S Describes the subcommands of an escape-prefix command.
Modified for C108 library 8/13/82.pC Assigns a function to a Concept special key.
For best results, use ^R Instant Extended Command to invoke this.
String Argument is name of function to assign.
You will be prompted to type the key to put the function on.

Alternatively, if you are calling this from your init file, you can pass
the key as a numeric arg.  In this case, the keys are coded as follows:
  1-14 unshifted function keys F1-14
 15-19 funny keys to left of F1, left to right (INSRT, ..., SEND)
 21-34 shifted function keys F1-14
 35-39 shifted funny keys (SHIFT/INSRT, ..., SHIFT/SEND)
 40-51 unshifted pad:  MC, STAT, ..., TABSET
 52-63 shifted pad: MC, RESET, ..., TABCLEAR
    64 BACKTAB
    65 BREAK

Note that MC most shifted cursor pad keys may not be set.

You may also pass the function DEFINITION as a pre-comma arg, instead of
passing the function NAME as a string arg.F^R Move cursor to top of screen.
With negative arg goes to bottom'^R Move cursor to bottom of screen.^R Scroll 1 line upwards^R Scroll 1 line down(C Prints the default key definitions}C Set the terminal and display widths.
The only argument is the width of the display (80 or 132).  No
argument toggles.^R Skips to target character.
Skips forward to nth (or 1st) occurrence of next char typed.
Backward if arg is negative.  Edit bit on target ignored.
Repeat Skip with ^R Repeat Skip/Zap.
Pre-comma arg gives char to search for (instead of reading it).FS Implements Skip to Character.
This is a separate routine so that ^R Skip to Character can
do the Auto Push Point Option.  Optional pre-comma arg is the target char,
post-comma arg is repeaty^R Search backward for target char.
I.e. likesatbackwards ^RgSkiphtoaCharacter.  Repeat with ^R Repeat Skip/Zap.
Zap excludes target character.  Negative arg zaps backward.
Repeat Zap with ^R Repeat Skip/Zap.t^R Zap backward to target char.
I.e. like a backwards ^R Zap to Character.  Repeat with ^R Repeat Skip/Zap.c^R Repeat the last Skip/Zap command
regardless of any intervening commands other than skip/zap
& Setup C108 Library
& Concept Enable Keypad
& Concept Disable Keypad
& CONCEPT Prefix Character Driver
& Prefix Describe
Set Concept Key
^R Top of Screen
^R Bottom of Screen
^R Scroll Up
^R Scroll Down
CONCEPT Default Key Info
Set CONCEPT Terminal Width
^R Skip to Character
& Skip to Char
^R Reverse Skip
^R Zap to Character
^R Reverse Zap to Character
^R Repeat Skip/Zap
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2