Trailing-Edge
-
PDP-10 Archives
-
6.1_emacs_manuals_1er
-
emacs/ledit.fasl
There is 1 other file named ledit.fasl in the archive. Click here to see a list.
;"A (U*U*U PROG2 COND STATUS NOFEATURE NOLDMSG TERPRI MSGFILES PRINC PNPUTU*Uju QUOTE ;Load ing L EDIT 36 p SETQ x DEFPROP U:U*U T +INTERNAL-STRING-MARKER x ALPHALESSP LISPV 2071 PUTPROP LEDIT 36 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 LEDIT-DEV PS Sys:E macs. exe p w*U*U x x TENEX DSK Dsk:< subsy s>Ema cs.sa v w:U*U p x x BREAK You c an't use L on th is opU+]nU erati ng sy stem ! ! p " " x " x " x PROGN LLOAD-LAST-FILEU*]*U LEDIT-TYO TYO LEDIT-TYI TYI " # # # # $ $ $ % x LEDIT-FORK SQUID MAKUNBOUND CONTINUE U*U*U SUBSYS FRESH-LINE USERID EXPLODEN LEDIT-TEMP-FILE-NAMES MEMQ IMPLODE LEDIT-TEMPORARY-FILEU*]nU inter nal-E OF-ma rk , , - - p . . x . x GENTEMP LEDIT-EOF U*U$ ^W START * CALL-LEDIT SUBR [ %Z Z B 1B + 7D %+ , ,8 ,8 ,8 ),8 ,8 ", < '+ ( ( zkYW4R ) B ) $ " * *Z ,8 7@` +
` J ) $( " * *Z D` +
@1 ) +-, $ +-, B )" , ,8 ,8 !", < . B /6D /+
#@Bj ! , ,8 ,8 ,8 #,8 $,8 $", < '@ B % " 1,x '
.w2,J:r/B|rOB* |wP 0 0
2 KILL KILL-LEDIT[ %Z $ Z 1B + .7D %+ . , +,8 ,8
D,8 /", < '@@ %6B /+ . (
#j 0 ] " 1,x 2w2,J:/q F|3p_B t 0 2 % U*U* RESCAN CLEAR-INPUT LEDIT-READ LLOAD-SOURCE PRIN1 LEDIT-FIND FSUBR,8 5B 9!Hf2 " 3 4 $ 4 1 56B /+ P (D
0
#j R+ P-, ,8 ,8 ,8 0 7@g+ P[g $ 5 Bg B` 5B H , A,8 ,8 ", < ~ T , E,8 ,8g
,8 ", < 6 , G,8 ,8 ", < + N@ 3 $ 4Z` g[` 6 1 56B / H + N (
#j YZgJBg+ ;/ U :" 1/ ,x w2,J:qF|CqOB|SpSB t 72,J:x `? r@ EF U*U*U FILEP CLOSE DELETEF IN OPEN UUOLINKS SSTATUS READ NOUUOU
*EVAL PRINT , ^,8 ,8 $", < 75N a zwv }A 1B g " + b " 5B $ 4L
1,8 8 z<Ux4@ -, ,X -, )
-, 8,8 ,8 4B -.
0+ o g| 94B m g| 97g| g| :
,x " $ u-.
, s,8 ,8gr,8 @
", < ; Bgr-, + 4B 6D / H*1 + x (
#j ; zn
- <", |,8 ,8gx,
=,8 ,8 0(0 g3B /+ " $ -.
gy@` = Bgy-, + (B{7 @@1+ , ,8 ,8 ", < ~ , ,8 b,8g,8 ", < 6 , ,8 ,8 ", < + 6B /+ , ,8 ,8g,8 #", < > @0
, ,8 ,8gw,8 /", < <UBg+ ~ " @`0/ , -. / ,x D :wKpN@|q G| a %xcY% ;h 72,J:ro@ *U|0 I|KqIxOc@ P 2 [ BASE *NOPOINT &U*U*U " " $ * & #U*U*U 4 7 2 6 2
!,8 74B '(B{ `n 7g~ " 3 ) @ `,8 ,8 7 g~(N{ 8 `n 7g~ " H 0 ),8 ,8 8 g|4N 1(N{ 8 `n
7g| " 3 ),8 ,8 8", < L L 4
U* " / + @ @ A A B B C C C * C B D B @ @ A A B B D E E F B D E F G G H x '$f G B x g$f C C C * C B I I B @ @ A A B B D E E F B D J E J K E K E G H x '$f7 G x g$f ]*U*U h 2 LLOAD-PARSE 0 MERGEF NAMESTRING INTERN FASLP FILEPOS MACROEXPAND U*U*U LIST COMPILE EQUAL *APPEND DEFUN FBOUNDP EXPR FEXPR MACROP$ LLOAD,8 ,8 /5B <7D #+ <* -, 0 M,8 ,8 " $ B-.
gy@a 8 Bgx-, + 4B C6@g~+ L , F,8 ,8 ", < ~ B , I,8 ,8g
,8 ", < 6 , L,8 ,8 ", < + ALf) ` 1 1 1 1 M zf7 N N O Bg B # ; zn
- <-. + U g{ 94B T g{ 9,x AB " $ [-.
, Y,8 ,8gq,8 F", @a< ; Bgq-, + 5B d , ^,8
" ,8 ", < ~ G , a,8 ,8gy,8 ", @@1< 6 , d,8 ,8 ", < + @ gx O
D 4B j * -,
/
=gx , 0ADB + :-, = * J =-,~
,8gu", < P B` , v,8 ,8gu,8gu", 0< < Bg~3Bgv+ 9 g~ P Bg~7@ " (B{Z 0B Q+ [g~0D "+ Zg~
A(7@ " (B{Z 0B Q+ Q z ?<m)#Zg~D [ R4B gZg~Z Z RZg~ Z [ Bg Dg~+ w7Bg~ " (B{Z 2 0B Q+ [g~0D S+ Zg~7@ " A (B{Z 1B Q+ " + "Zg~[ @ 4B (B{ an + Zg~[ + " Zg~[ 7@ " (B{Z 0B Qg @ " 4B "Zg~[ [ 4B (B{ @ an + "Zg~[ [ + " " Bg " $ &-.
gx =-, + @@15B 0 , ),8 ,8 ", < ~ K , -,8 b,8g~,8 ", < 6 , /,8 ,8 ", < + l7@g+ l g S[ T T U zP \a (4J l[( Z
( 0H + 3 ` gw-, & 5 $ D
g + l, / 6B /+ @ (
#j N , @,8 ,8gy,8 ", < ` j P-. " 1/ ,x 72ex2y/c_ xc
rOGx7b? x C|'qOB :72ex2y/c_ xc
rOGxd xpC|'qOB 72ex2ro@|0_I |KqIxOc@ w2ex2xa@|q F| x cyc .U*P y'a?;h
X 7 9 REVERSE NREVERSE LSP MACLISP DEFAULTF ,8 ,8 5B U * 3 J` + oZ 5D [[ @
4F [4F Y(F{ an + [-, L B` + o )Z VZ V B` ,8 0@ ,8 ,8 6@g+ c ` V L @ Bg~+ n[g 8 0N + j g1N + l A `1N + l ` " *-, B` + l ` [g-, B` [gZg Bg Dg+ _
/ ,8 -,~ B 1+ t[ X+ v,8 =-, ,X -, [g~Z [ D` M z 3$f Bg `
0-, $ 1-, g-, $ A g~ N Bg " $ -.
gx 8
Bgx-, + 4B 7@g+ g 0 N Bg~+ Zg~ Bg~+ p/ ` 7$/ ,x 1 1 W 8 8 W ( ( W W W W x >mCn P 2 R LEDIT-TTYINT "
6B /@@1 + , ,8 ,8 #", < + " ,x ]+U" 2
TTYINT < Y Y X x COMPLR-FORK COMPLR 6B /+ (P
#j -[ ZZ Z 1B + 7D Z B + 6F /+
#j . , ,8 ,8 ", !<
#j 0 , ,8 ,8 Z,8 1,8
$,8 1", < '+ (6D /+ "
#j 2 , '`0,8 Z 1 z6Y4 N,8 ,8 4,8 ,8 4HB", < ' B Z6B /+ , , +,8 ,8 #", <
#j 5 " 1,x w}\d |qG|Sq G |Wp_B t ~ ' Zw}\d d_ xe x!o " ] 0 Zw}\dp?G|7rF|rOB|wP ( 2 KILL-COMPLR
[ ZZ Z 1B + A7D Z+ A , > " ,8 ,8 ,8 B", < '@@ Z6B /+ A (P
#j B " 1,x 2w}\d_b?xga?;h ]
B 0 2 7 COMPLR-TTYINT Z6B /+ I , H,8 ,8 #", P.U< + I " ,x 8 2 D < Y \ [ x SFAP WHICH-OPERATIONS U(F! A CURSORPOS CHARPOS # \4B S & $ ] #
. +A 4B S[
Z 0J (+ N & !@ $ ( # . +A + \ , V,8 ,8 ]
",8 #", < ^5B \ , Y,8 ,8 #", < ^@@44N \ , \,8 ,8 #", < " ,x ]_@ 2 J;