Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/ledit.fasl
There is 1 other file named ledit.fasl in the archive. Click here to see a list.
;[& U*U*U PROGN COND STATUS NOFEATURE NOLDMSG TERPRI MSGFILES PRINC PNPUTU*Uju QUOTE ;Load ing L EDIT 43 p SETQ x DEFPROP U:U*U T +INTERNAL-STRING-MARKER x ALPHALESSP LISPV 2071 PUTPROP LEDIT 43 U*U.U VERSION PUSH LAMBDA X OR FILE-EXIT-FUNCTIONS
x GET SUBFORK U+U*U LOAD LISP FASL T-LOAD-FILE NULL U*U.w CASEQ OPSYSTEM-TYPE TOPS-20 Sys:E macs. exe p x x U*U.w TENEX Dsk:< subsy s>Ema cs.sa v p x x U*U*U BREAK You c an't use L on th is op erati ng sy stem w;U*U p x x x LLOAD-LAST-FILE LEDIT-TYO TYO LEDIT-TYI TYI u*U*U ! ! ! ! " " " # x LEDIT-FORK SQUID MAKUNBOUND CONTINUE SUBSYS FRESH-LINE USERID LEDIT-TEMP-FILE-NAMES U*U*W FLATC GETCHARN IMPLODE LEDIT-TEMPORARY-FILE inter nal-E OF-ma rk ) * * + p w*U*U + + x + x LEDIT-EOF ^W START * CALL-LEDIT SUBR H ,< ,< [ #Z Z 1B + 7D #+ , ,8 ,8 ,8 0,8
&S,8 0", < %+ . & & zkYW4R B ' '
Nw *w,8 ,< ,< ` 1. `+ # ` ' (0N + ' ' Nw *w,8 ,8 ` 2og+ g (@ B '+ /. ` ',< ( g-, 0 ,\ Np *p Bg J` + / @ " + # ` /. Nw "w B` + / 0@d / '-, $ )-, B! B ' * + J ,6D ,+ * !h 1 , .,8 D 2 ,8 ,8 3,8 3,8 4", < % B # " ./ 0 ,x %
w2,J:r/B|rOB|wP -".T@ -
h / KILL KILL-LEDIT[ #Z Z 1B 0H" + >7D #+ > , ;,8 ,8 ,8 ?", &! < %@@ #6B ,+ > &
!j ? " .,x :U /w2,J:/q F|3p_B t / 4 RESCAN CLEAR-INPUT U*U*w LEDIT-READ LLOAD-SOURCE can't find func tion for 3 3 4 4 5 p 5 5 x u*@ 5 x LEDIT-MSG LEDIT-FIND FSUBR,8 5B H " 0 1 "LB2 1 . 26B ,+ Y &
!j [+ Y
-, ,8 ,8 ,8 7@g+ Y `"[g $ 2 Bg B` 5B Q g $ 5 "
H` 6+ W " 1Z` g[` 6 .d 26B ,+ W &
!j ]Zg Bg+ J
/ " ./ ,x w2,J:qF|CqOB ]|Sp_B t w2,J:qF|CqOB|Sp_B t @ 7 A PRIN1 ,8 ,8 ,8 , d,8 ,8 ", < ~ r @1 , g,8 ,8g~,8 ", < ~ r , k,8 b,8g,8 ", < ~ s , n,8 ,8g,8 D", < 7 , q,8 ,8 ", < / *U,x 6 ` / ` LISTEN LSP DEFAULTF PROBEF U*U*U FILEP CLOSE DELETEF IN OPEN UUOLINKS SSTATUS READ NOUUOU( *EVAL Eval error in PRINT , v,8 ,8 "", < 85N y)P zwv } 1B g " + z " 5B - "AD# 1 . . . 8 zPc
-,
9 ' 9, @0,8 ,8 ,8 4B ,-. + D g{ :4B g{ :7g{ g| ;,x AB " $
,
,8 ,8gr,8 -", < < * Bgr Jgr " + 7@gy+ +LBS6B ,+ &
!j . < zn
- = , ,8 h,8gx,8 ,", < = * -,
>,8 BA,8 g3B ,+ ) " $ -.
@@gq gy > * Bgy Jgq " + A16@gx+ ! g $ ? "
6+ %6B ,+ % @1 , %,8 ,8g,8 !", < ? , (,8 ,8gw
@0,8 ,", < = Bg+ " / , 0P
+ , " -. / ,x ; UwKp @|q G| a %xc Y% ;h / s BASE *NOPOINT U*U*U & " " $ * & U*U*U # 4 7 2 6 2 8 I g|4N B C (N{ 8 `n 7g| " 0 J,8 ,8 ILh", < N O 1 " / + *U7*U A B B C C D D E D E D D F D A B B C C D F G G H D F G H I I J x '$f I D x g$f D E D E D D K L D A B B C C D F G G H D F L G M M G N G I J x '$f7 I x g$f h / 1 *:ARN LLOAD-PARSE SI:CHECK-MULTIPLICITIES U*Unu *:AR2 unabl e to find file R R S S p T T x T x LLOADU*Unu 0 MERGEF NAMESTRING INTERN open R R W S p W W x W x FASLPU*U*U FILEPOS MACROEXPAND LIST COMPILE EQUAL *APPEND DEFUN FBOUNDP EXPR U H! FEXPR MACRO,8 ,8 , * K J O5B N7D !+ N `
* -, P,8 O0. + R " P@` Q * K J O,8 Q,8 6@g+ W g~"
S $ T " T 6+ D g . . . . U zf7 U V V`a B` B ! < zn
- =-. + ` gz :
04B _ gz :,x " $ g-.
@@gr 4 , e,8 ,8gq,8 F", < < * Bgq Jgr ! " + 6@gy+ k gx $ W " T 6-. + D gw X4B q * -, `a
,
> gw , + =-,
> * gJ >-,} Bg~ Dg+ ~ , y,8 ,8gt", < X Bg 0 , },8 ,8gt,8gt", < = Bg~3Bgu+ <@ 2 g~ Y Bg~7@ " (B{Z 0B Y + [g~0D + Zg~7@ " (B{Z 2 0B Y+ Z z ?<m)#Zg~[ Z4B g ` Zg~Z Z [Zg~Z [ Bg Dg~ d+ ~7Bg~ " (B{Z 0B Y+ [g~ @ 20D [+ Zg~7@ " (B{Z 1B Y
+ " + )Zg~[ 4B (B{ @ an + Zg~[ + )Zg~[ 7@ " A (B{Z 0B Yg " 4B )Zg~[ @
[ 4B '(B{ an + )Zg~[ P0[ + ) " Bg~ " $ /-.
@@gyP gw > * Jgy " + 6@` + 2b g~ $ ? " T 6+ s7@g~+ s g~ \D [ \ ] ] zP \a (4J s[( Z
( 0H + 5 g gw 1-, & 2 $ g~ + s, &!/ 6B ,+ C &
!j F , B,8 b ,8gx,8 ", < j H-. " .+ E " / ,x ;w2ex2xa@|q F| *Ux cyc y'a?;h
H 7 J REVERSE NREVERSE UDIR PS PB@ MACLISP ,8 ,8 5B M * 0 J` + gZ 5D S[ 4F S4F R(F{ an + S &-, B` + g JZ ^Z ^ ` B` ,8 ,8 ,8 6@g+ [ ` @ ^ O Bg~+ g[g 8 0N + b g @ @01N + d1N + d ` " E-, B`
+ dg` [g-, gB` [gZggBg A@aDg+ X/ ,8 ,8 -,~ , 2@ d U z 3$f Bg ` -, $ .-, ( 0 . . z <$f -, $ g} U Bg " $ `1-.
Z 9 gy-, -, 9A@ gx 9, Bgx4B V * Bgw B@0 " Jgw-, + " + Zg~ A@$ Bg~+ i/
` J Q ( P H O g7$/ ,x . _ . _ 8 _ & _ & 8 _ ` _ ` 8 x #U 6
/ J LEDIT-TTYINT "
6B ,@@1!+ < + " ,x ]+U"
/ TTYINT = a a ` x COMPLR-FORK COMPLR 6B ,+ &P
!j ,[ bZ Z 1B + 7D b B + 6F ,+
!j - , ,8 ,8 ", !<
!j / , ,8 ,8 b,8 0,8
$,8 0", < %+ '6D ,+
!j 1 , &f,8 b . z6Y4 U V,8 ,8 2,8
D,8 3", < % B b6B ,+ + , *,8 ,8 !H( ", <
!j 3 " .,x w}\d |qG @ |Sq G|Wp_B t ~ % bGya?y'a?;h " ] - bw}\dp?G|7rF|rOB|wP
( / KILL-COMPLR
[ bZ Z 1B + ?7D b+ ? , < " ,8 ,8 ,8 @", < %@@ b6B ,+ ? &P
!j A " .,x /w}\d_b?xga?;h ]
B
0 / 6 COMPLR-TTYINT b6B ,+ G , G,8 ,8 !", P.U< + H " ,x
8 / C = a d c x SFAP WHICH-OPERATIONS U(F! A CURSORPOS CHARPOS ! d4B R & $ e !
. +A 4B R[
Z 0J &+ L & !@ $ & ! . +A + [ , U,8 ,8 \
",8 !", < f5B [ , X,8 ,8 !", < f@@44N [ , [,8 ,8 !", < " ,x e_@ ` / H;