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

R3\e
Zq	V~&	
Z$U078vF@T%ao\A3&f6	E3TAfnuE@7& LEDIT Execute JCL& LEDIT Find File& LEDIT Find Tag& LEDIT Save Region& Setup LEDIT LibraryCOMPLR InferiorLEDIT ReCompileLEDIT Save Region ~^R LEDIT Find Function^R LEDIT Save DEFUN^R LEDIT Save Region^R LEDIT Zap DEFUN to LISP^R LEDIT Zap to LISP~DIRECTORY~~DOC~ & LEDIT Execute JCL~DOC~ & LEDIT Find File~DOC~ & LEDIT Find Tag~DOC~ & LEDIT Save Region~DOC~ & Setup LEDIT Library~DOC~ COMPLR Inferior~DOC~ LEDIT ReCompile~DOC~ LEDIT Save Region ~ ~DOC~ ^R LEDIT Find Function~DOC~ ^R LEDIT Save DEFUN~DOC~ ^R LEDIT Save Region$~DOC~ ^R LEDIT Zap DEFUN to LISP~DOC~ ^R LEDIT Zap to LISP~DOC~ ~FILENAME~~FILENAME~

~INVERT~0M.CLEDIT LISP JnameJob name of LISP job to return to
-1FO..QLEDIT Save All Files QueryM.CLEDIT Save All Files Query
0 = No saving.
1 = Save All Files with querying.
-1 = Save current buffer without query,
and all other files with querying.
0FO..QLEDIT Auto SaveM.CLEDIT Auto SaveIf non-zero, use Auto Save
M.M& LEDIT Execute JCLFSSUPERIOR
FSOSTECO"N
@:I*|M(M.M& LEDIT Execute JCL)|M.VReturn from Superior Hook'
:IEditor TypeLEDIT
FSOSTECO"E
FSHSNAME:F6[1
FSUNAME:F6[2
:I*DSK:1;_LEDIT 2M.VLEDIT Filename'
"#F[BBIND
HKG(FSUNAME:F6)
-:S."L0,.+1K'
JILEDIT-TEMPORARY-FILE.
HX*M.VLEDIT Filename
F]BBIND'
[..O
[Previous Buffer
M(M.MSelect Buffer)*LEDIT*
Q:.B(QBuffer Index+4)M.CLEDIT BufferHolds s-exp's to return to lisp
M(M.MSelect Buffer)
M(M.MLisp Mode)
0FO..QLEDIT Setup Hooku1
FQ1"GM1'
"#M.M^R LEDIT Save DEFUNU..Z
M.M^R LEDIT Zap to LISPU:.X(Z)
M.M^R LEDIT Save RegionU:.X(C)
FSOSTECO"E
M.M^R LEDIT Save RegionU...Z''
FSLispT"N
M(M.M& LEDIT Execute JCL)'
_1:@<
[0
F[BBIND
FJ
HX0
F]BBIND
FSOSTECO"EM0'
"#FSXJName[1
F~1LEDIT"EM0''
>
(0FO..QTag Table Buffer"E
5,M(M.M& Read Line)Tag Table[1
FQ1-1"L'
M(M.MVisit Tag Table)1'
QTag Table FilenamesF[DFILE
:I*:M(M.M& Find Tag Display)r[0
F[DFile
F[IFile
1:<EREC>
0FSIFVersion
FSIFileU0
F]IFile
F]DFile
M(M.MFind File)0
]0
.[0
FSVB[1
FSVZ[2
0FSVB
0FSVZ
1,FFind Function: [3
FF-1"E
F[4
1000[5
<Q4-Q5:J;
<.,Q4+Q5:FB(DEFUN 3 ;
13,FKAF 


"G'>
Q5*3U5>
]5]4'
J
<:S(DEFUN 3 ;
13,FKAF 


"G'>
Q2FSVZ
Q1FSVB
Q0J
:I*Unable to find function 3FSErrGM(M.M& LEDIT Save Region)
FF"NM(M.MSelect Buffer)*LEDIT*'
0QF[VBF[VZ
FF"E:,.'"#F'FFSBOUND
Q..O[3
QLEDIT Buffer[..O
ZJ
G30]M(M.M^R Mark DEFUN)
M(M.M& LEDIT Save Region)
FF"NM(M.MSelect Buffer)*LEDIT*'
0cFSQPPTR
QLEDIT Save All Files Query[2
FF"EQ2"LQLEDIT Auto Save"E1,M(M.M^R Save File)'
"#1,1M(M.M^R Save File)''
Q2"NWM(M.MSave All Files)'''
:I2NIL
QLEDIT Buffer[..O
Z"N
FF"'E+("'N)"N
F[DFILE
FSOSTECO"NFSMSNAMEFSDSNAME'
QLEDIT Filename[1
ET1
FSDFILEU2:I2|2|
EIHPEF
]1F]DFILE'
HK'
]..O
FSOSTECO"N
F~2NIL"E:I2'"#:I2 '
:M(@:I*|
:FR
:I*ZFSEchoDisplay
0FSEchoChar
2
M(M.M& LEDIT Execute JCL)
|)'
QLEDIT LISP Jname"E
1,FLISP Jname: ULEDIT LISP Jname'
QLEDIT LISP Jname[0
FSJNAME:F6[1
:m(@:i*`0$J:JCL (1 2)
$P`(QPFSQPUN))Z"N1M(M.M^R Mark DEFUN)
M(M.M& LEDIT Save Region)'
F@:M(M.M^R LEDIT Zap to LISP)/0FO..QCOMPLR Fork[2
FF"N
Q2"N-Q2FZ'
0UCOMPLR Fork
0
'
:FR
:I*ZFSEchoDisplay
0FSEchoChar
Q2F"NFZ
0
'
FZPS:<Maclisp>Complr.ExeM.VCOMPLR Fork
0
k[0[1[2[3
QBuffer FilenamesU0
Q0"NET0'
FF"N5,2FDirectoryU0
FQ0"L'
ET0'
FSDSNameU2
FSDDeviceU3
FTChecking 3:<2> for FASL files to recompile...

E[FNE]
F[BBind
EZ*.FASL
J
<:S.FASL;0F-5X1
2S,
1:<1,ER1.LSP>"E
(FSFDConvert)-(FSIfCDate)"L
FT1 needs ReCompilation.
'
EC'
"#FT1.LSP not found.
'>
FTDone.

0
	LEDIT/The teco half of lisp LEDIT editing system.4S Set up LEDIT variables and assign ^R commands.^S Run when tty returned to TECO.
If there is JCL, then execute it.  Otherwise do nothing.5S Like ^R Find Tag, except takes string argument.LS Find File insuring Logical Device Name expansion (TWENEX).
The standard Find File function, when invoked by m(m.m Find File)device:
fails to properly expand Logical Device Names, often causing it to select
a bogus buffer name.  This function calls the standard Find File after
forcing the Logical Device Name expansion. ^R Find Function in Buffer.
This function will find a Lisp Function in the buffer, repeatedly searching
greater and greater portions of the File centering its search about an
approximate location of the Function.  This function will search for a string
of the form ^J, ^M, or ^L followed by "(DEFUN <Function Name> ".  If called
from ^R Mode, the function will prompt for a function name.  The format of the
Teco call is:

<Approximate Location>M(M.M & LEDIT Find Function)<Function Name>

If no <Approximate Location> is given or if the function is called with more
than one argument, then the entire file is searched starting from the
beginning. HC Stores region between mark and point to be returned to LISP.
Stuff is appended to the contents of the buffer kept in QLEDIT Buffer
If given argument (e.g. ctl-U), also selects buffer *LEDIT*eS Stores region between mark and point to be returned to LISP.
Stuff is appended to the TECO buffer in LEDIT Buffer (the EMACS buffer *LEDIT*).
A pair of arguments may be given instead of the mark, if called from a teco pgmI^R Stores the toplevel list the pointer is in to be returned to LISP.
If the pointer is between lists, the following list is stored.
If numeric argument is given, then also select buffer *LEDIT*.'^R Returns to LISP
If called with no argument, writes out *LEDIT* buffer to be returned to LISP,
   and save files according to LEDIT Save All Files Query.
If called with non-zero argument, writes out *LEDIT* buffer only and returns.
If called with zero argument, just goes directly back to LISP
   discarding the changes which were saved instead of zapping them.
String argument is LISP jname, if currently zero.^R Save Defun and Zap to LISP
Takes same arguments as LEDIT Zap to LISP, but saves the
current DEFUN and then zaps it immediately.xC Call COMPLR as Inferior (on Twenex only)
or continue it if we have one already.  An argument means to kill fork. kC Check for FASL files to recompile (TWENEX).
When called with no arguments, takes directory from current default file.
Takes directory as string argument, or prompts when put on a ^R character
and called with numeric argument. & Setup LEDIT Library
& LEDIT Execute JCL
& LEDIT Find Tag
& LEDIT Find File
^R LEDIT Find Function
^R LEDIT Save Region
& LEDIT Save Region
^R LEDIT Save DEFUN
^R LEDIT Zap to LISP
^R LEDIT Zap DEFUN to LISP
COMPLR Inferior
LEDIT ReCompile
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2