Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/complt.elib
There are no other files named complt.elib in the archive.
PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   I$

0<`J!Xe
Ln
uC	

g4

$%
x-w5?=K[\k`}l5xead Variable Name Prep& Setup COMPLT LibraryInsert BufferKill BufferKill Local VariableKill VariableMake Local VariableSelect BufferSet VariableView BufferView Variable~DIRECTORY~~DOC~ & Buffer CRL Lister~DOC~ & Kill COMPLT Library!~DOC~ & Read Buffer Name Prep#~DOC~ & Read Variable Name Prep ~DOC~ & Setup COMPLT Library~DOC~ Insert Buffer~DOC~ Kill Buffer~DOC~ Kill Local Variable~DOC~ Kill Variable~DOC~ Make Local Variable~DOC~ Select Buffer~DOC~ Set Variable~DOC~ View Buffer~DOC~ View Variable~DOC~ ~FILENAME~~FILENAME~

~INVERT~QEMACS Version-162"L
:I*COMPLT requires EMACS version 162 or above.:FG
'
0FO..QCOMPLT Setup Hook[0
FQ0"G:M0'
0FO..QOld C-X K"EQ:.x(K)m.vOld C-X K'
m.mKill BufferU:.x(K)
0FO..QOld C-X B"EQ:.x(B)m.vOld C-X B'
m.mSelect BufferU:.x(B)
0FO..QCOMPLT Kill Hook[0
FQ0"G:M0'
0FO..QOld C-X KF"NU:.x(K)
MMKill VariableOld C-X K'
0FO..QOld C-X BF"NU:.x(B)
MMKill VariableOld C-X B'
W[CRL List[CRL Prefix
[CRL Name Type[CRL Name Lister
FSQPPTR
5FSQVECTOR
2U:L(0)
FQ.B/5[00[1
[2[3
<Q1-Q0;
Q:.B(Q1+1)U2
-(@:FOL2)U3
Q3"GQL[..O5*Q3J10,0I]..O
Q2U:L(Q3)Q1U:L(Q3+1)'
Q:.B(Q1)+Q1U1>
QLUCRL List
:I*UCRL Prefix
:I*bufferUCRL Name Type
m.m& Buffer CRL ListerUCRL Name Lister
QPFSQPUNWINDPf[dfile
FF&2"nBJ
I  Buffer Name         Visited File Name

'
"#[1Q:.1(Q1)[0
Q:.1(Q1+1)U1
Q:.B(Q1+4)[X
QX[..OFSMODIFIED(]..O)"EI  '
"#I* '
G020-FQ0:F"Gw2',32I
Q:.B(Q1+2)u0q0"E
QX[..OFSZ(]..O)\I characters'
"#G0ET0
q:.B(Q1+9)[3
fsdversion:"Gfsdversion+1"n
I (!)!
fq3"Lq3\'"#g3'
!(!I)'''
I

'
KMMM & Check Top Levelbuffers
[40[3
FF&1"NU3'
"#"E:F"G:i3''
Q3"E
"Nu4'
"#:i4Select Buffer'
QPrevious Bufferu3
1,Q3M(M.M& Find Buffer)"LQ:.B(1)U3'
m(m.m& Read Buffer Name Prep)
62.,m(m.m& Read Command Name)4 (3): U3
Q..H"NF'0U..H
FQ3"L0'
''
Q3[5
FQ3"EQPrevious BufferU3'
1,Q3M(M.M& Find Buffer)[1
Q1u4
Q1"L
FQ3"L:I*No such bufferFSERR'
FQ5"E0U10U4'
"#Q3M(M.M& Create Buffer)U1''
Q1:M(M.m& Select Buffer)fFF&1"N[1'
"#
m(m.m& Read Buffer Name Prep)
52.,fKill Buffer: [1'
Q1:M(M.M& Kill Buffer)Wm(m.m& Read Buffer Name Prep)
72.,fInsert Buffer: [1
Q1:M(M.M& Insert Buffer)Sm(m.m& Read Buffer Name Prep)
72.,fView Buffer: [1
Q1:M(M.M& View Buffer)D:I*variable[CRL Name Type
Q..q[CRL List
:I*[CRL Prefixhm(m.m& Read Variable Name Prep)
12.,fKill Variable: [0
:fo..q0[0
q0"l'
q..q[..oq0*5j15d0Zm(m.m& Read Variable Name Prep)
12.,fView Variable: [0
m(m.mView Q-Register)0m(m.m& Read Variable Name Prep)
32.,FSet Variable: (
FF"E1,FValue: '"#'[1
)[0
:F"L@':FO..Q0:"G
0M.V0'
Q1U00m(m.m& Get Library Pointer)EMACS
m(m.m& Read Variable Name Prep)
32.,fMake Local Variable: [0
fm(qLm.mMake Local Variable)0
m(m.m& Get Library Pointer)EMACS
m(m.m& Read Variable Name Prep)
12.,fKill Local Variable: [0
fm(qLm.mKill Local Variable)0

COMPLT5Provide completion for buffer and variable names.
S Install changes.
Installs the new Select Buffer on C-X B and the new
Kill Buffer on C-X K.  The old functions connected to
these keys are saved away in QOld C-X B and QOld C-X K.  
(If variable COMPLT Setup Hook is non-zero, this is macroed instead.)
S Un-install changes.
Runs variable COMPLT Kill Hook if it exists.  Otherwise restores
functions bound to C-X B and C-X K.xS Set up for reading buffer name with completion.
Initializes the CRL variables (leaving them pushed on the stack).nS CRL Name Lister for & Read Buffer Name.
Adds visited filename and modified bit to list of buffer names.C Select or create buffer with specified name.
Can accept the buffer name as a string arg, or the buffer number
as a numeric arg, or a string pointer as arg (when used as a subroutine).
If there is a buffer with that name, it is selected.
Otherwise, a buffer with that name is created and selected.
When a new buffer is selected the first time, if Buffer Creation Hook
is nonzero, it is run after the buffer is selected.
A precomma arg is the prompt string to use.

Uses & Read Command Name to read buffer name with completion.  Null
buffer name selects the default; method for entering a new buffer
name depends on setting of QCRL Non-match Method. fC Kill the buffer with specified name.
Takes name as a string (suffix) argument, or reads it from terminal.
(Uses & Read Command Name for completion: 
  null name means the current buffer.)
Alternatively, the name (as string pointer) or the buffer
number may be given as a prefix argument.
If the buffer has changes in it, we offer to write it out.dC Insert contents of another buffer into existing text.
Specify buffer name as string argument.>C View a buffer moving by screenfulls.
Buffer name is string argument; null arg means selected buffer.
Space moves to next screen, Backspace moves back a screen.
Return exits leaving point in current screen.
Anything else exits and restores point to where it was before;
and if it isn't Rubout, it is executed as a command.

Also useful on fast storage scopes like the Tektronix.
However, Backspace is only available on real displays.wS Set up for reading variable name with completion.
Sets up all the CRL variables (they are left pushed on stack).2C Eliminates definition of specified variable.C Type out contents of variable.
Simply reads a variable name, and then calls View Q-Register.
Uses completion if the name is read from the terminal.oC Set the value of a named variable.
The name of the variable is a string argument.
If you supply a numeric argument, that is the new value.
Otherwise, a second string is the new value.
Completion is available for the variable name, with Space and Altmode.
Abbreviations are not allowed unless you complete them;
any nonexistent name creates a new variable.5C Make a variable local to the current buffer.
Example:  M.LFoo Variable (since this function lives in .L).
The variable name must be given in full, not abbreviated.
Its local value starts off the same as its global value.
However, a numeric argument to this function sets the local value.
"1," as arg means assume that the local doesn't exist yet.
"2," means make a permanent local that won't go away when major mode changes.VC Kill one of the current buffer's local variables.
The global value is restored.
& Setup COMPLT Library
& Kill COMPLT Library
& Read Buffer Name Prep
& Buffer CRL Lister
Select Buffer
Kill Buffer
Insert Buffer
View Buffer
& Read Variable Name Prep
Kill Variable
View Variable
Set Variable
Make Local Variable
Kill Local Variable
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2