PDP-10 Archive: emacs/henry.init from mit_emacs_170_teco

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/henry.init

There is 1 other file named henry.init in the archive. Click here to see a list.

PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   u:8G(L'QZc	jir`{:@

`Ec!	-,7A.LKU6fhV^eKq!m~" `;U*^5 J=8H!HTbcopC|~
]#?0U:DVP\$m -x y	 !+2$& Setup .EMACS Library
Abbrev	ActorCommentRegionDovereHardNCopyxt FilePaginate Lisp	RMAILSpace CommentXGP Hard Copy^R Directory Display^R Double Quotes^R Enclose List^R End Exclamation^R End Question^R End Sentence^R Indent Miser^R Make []^R Make {}^R Move Over ]^R Move Over }^R Reverse String Search^R Squiggles^R Stack List Vertically^R Vertical Bars^R View File~DIRECTORY~ ~DOC~ & Setup .EMACS Library~DOC~ Abbrev~DOC~ Actor~DOC~ Comment Region~DOC~ Dover Hard Copy~DOC~ Hard Copy~DOC~ Make Variable~DOC~ New Lisp File~DOC~ New Text File~DOC~ Paginate Lisp~DOC~ RMAIL~DOC~ Space Comment~DOC~ XGP Hard Copy~DOC~ ^R Directory Display~DOC~ ^R Double Quotes~DOC~ ^R Enclose List~DOC~ ^R End Exclamation~DOC~ ^R End Question~DOC~ ^R End Sentence~DOC~ ^R Indent Miser~DOC~ ^R Make []~DOC~ ^R Make {}~DOC~ ^R Move Over ]~DOC~ ^R Move Over }"~DOC~ ^R Reverse String Search~DOC~ ^R Squiggles"~DOC~ ^R Stack List Vertically~DOC~ ^R Vertical Bars~DOC~ ^R View File~DOC~ ~FILENAME~~FILENAME~

~INVERT~-1FS_Disable
1UAuto Directory Display
85UFill Column
1UAuto Save Default
M(M.M& Make Variable)Auto Save Filenames
[0FSHSNAME:F6U0
:iAuto Save Filenames0;_SAVE_ >
]0
M(M.M& Make Variable)File Versions Kept
1uFile Versions Kept
M(M.M& Make Variable)Text Mode Hook
:IText Mode Hook1,1M.LAuto Fill Modew
M.M^R Indent RelativeU	
0M(M.MIndent Tabs Mode)
M(M.M& Make Variable)Lisp Indentation Hook
:ILisp Indentation Hook
M(M.M& Make Variable)Underline Begin
:iUnderline Begin~
M(M.M& Make Variable)Underline End
:iUnderline End~
M(M.M& Make Variable)Tags Find File
1uTags Find File
M(M.M& Make Variable)WORDAB All Caps
1uWORDAB All Caps
M(M.M& Make Variable)Dired Long Format
1uDired Long Format
M(M.M& Make Variable)Emphasis Font Begin
M(M.M& Make Variable)Emphasis Font End
:iEmphasis Font Begin~
:iEmphasis Font End~
:iTemp File FN2 ListOLRECTEMPCOMPRSUNFASL_FASL__UNFA_PUIPUZPUGTEMPOUTPUTPRESS
-1FS^HPRINT
-1FS^MPRINT
[*5+1:F..D(
]*5+1:F..D)
{*5+1:F..D(
}*5+1:F..D)
"*5+1:F..D|
`*5+1:F..D'
,*5+1:F..D'
-*5+1:F..DA
:*5+1:F..DA
**5+1:F..DA
#*5+1:F..DA
_*5+1:F..DA
!seemstohavedisappeared...!
!(M.M^R MM Via Minibuffer)u...X!
(M.M^R Make [])U..[
(M.M^R Move Over ])U..]
(M.M^R Make {})U..{
(M.M^R Move Over })U..}
(M.M^R Forward Paragraph)U..N
(M.M^R Backward Paragraph)U..P
(M.M^R End Sentence)U..
(M.M^R End Exclamation)U.!
(M.M^R End Question)U.?
(M.M^R Directory Display)U...D
(M.M^R Indent Miser)U..
(M.M^R String Search)U.S
(M.M^R Incremental Search)U...S
(M.M^R Reverse String Search)U.R
(M.M^R View File)U:.X(V)
(M.M^R Double Quotes)U.."
(M.M^R Vertical Bars)U..|
(M.M^R Squiggles)U..~
(M.M^R Stack List VerticallyU..O)
FSXJNAME:F6[0
F~0ACT1T"EM(M.MActor)'
EREMACS;* EMACS^Y[0HFX0M0]01M(M.M^R Make ())*.[0
I[FF"N^FLL'I].[1
Q0JCQ0,Q1\F[SSTRING
S]R
@-F
 	K
.[0
C-1F"GS]'
MM
@M(M.M^R Indent for LISP)
Q0,.*.[0
I{FF"N^FLL'I}.[1
Q0JCQ0,Q1\F[SSTRING
S}R
@-F
 	K
.[0
C-1F"GS}'
MM
@M(M.M^R Indent for LISP)
Q0,.7I.
.(1M(M.M^R Backward Sentence)
1^FC)J
-3F9I!
.(1M(M.M^R Backward Sentence)
1^FC)J
-3F7I?
.(1M(M.M^R Backward Sentence)
1^FC)J
-3FFW.,(
[5
.(
1:<-FULFDL>"N1'
FSHPOSITIONU5
)JI
Q5<I >
)Z<F[DFILE
-4"EM(M.MView File)DIR:CDATE DOWN
'"#EY'"*5+1:F..D'
M(M.MAuto Save Mode)
M(M.MLisp Mode)
M(M.MAbbrev)
M(M.MLoad Library)LISPT
!M(M.MRead Word Abbrev File)ACTOR;ACTOR ABBREV!
M(M.MQuick Read Word Abbrev File)ACTOR;ACTOR ABBREV
1M(M.MVisit Tag Table)ACTOR;ACTOR TAGS:M(M.MLoad Library)WordAb
M(M.MWord Abbrev Mode)$M(M.MReplace String);;;###
M(M.MReplace String);;*PAGE~~~
M(M.MReplace String);;;; 
M(M.MReplace String)###;;;
M(M.MReplace String)~~~;;*PAGEQ[0[1
FSHPOSITIONU0
:,.FM(M.MCount Lines)U1
Q1<I;;; 
1:<1,Q0FM>
>
PJ
M(M.MReplace String)


[0[1[2[30U1
F[SSTRING
"N'"#60'U2
<.(.,(:S
(;R.U3.)M(M.MCount Lines)U0
)J
Q2-Q0"LI


Q3J
I


0U1'"#
Q2-(Q1+Q0)"LI


Q3J
Q0U1'"#
(Q1+Q0)U1
Q3J'
>
JPF[D FILE
5,M(M.M& Read Line)View File[1
FQ1"L'
M(M.MView File)1
 -:M(M.M^R String Search)5M(M.MLisp Mode)
JI;;; Hey, Emacs, this file contains -*- Mode: Lisp; Package: User; Base:10.; -*- code!
;;; (c) 1981 Henry Lieberman, Massachusetts Institute of Technology
cM(M.MText Mode)
JI.<< Hey, Emacs, this file contains -*- Mode: Text; Package: User; Base:10.; -*- code>>
. << (c) 1981 Henry Lieberman, Massachusetts Institute of Technology >>
. require "Henry;Pubmac" source file
.
I""R
.-1,.+1I||R
.-1,.+1B.(GEmphasis Font Begin
.(GEmphasis Font End[1.U1)J
),Q1MM Read MailMM & Make VariableZm.m^R Forward Sexp[1
m.m^R Indent New Line[2
m.m^R Indent for LISP[3
.[6
[4[5
:flrc
1a-)"eq6j.'
-4"N1m1f@:flr1a-)"eq6j.''
<1m1f
.u4@:flr.u5
1a-)"e0;'
q4,q5:fb
(q5j)"L
m3f'"#
m2f'>
q6j.h[1[2:I1:I2
FQ2"E:I2LISP'
[0
^ :@ /L[2]/3F[20FGI,20FG,20FGI]/%/S/120W/C/$/1" 1
:VP 1e[1[2:I1:I2
FQ2"E:I2LISP'
[3FSHSNAME:F6U3
[0
^ :@ /O[3;THIRD:PRESS@ >]/D[DOVER]/3F[GACHA6I,GACHA7,GACHA6I]/L[2]/%/S/120W/Q/C/$/1"/65V 1
:COPY AI:3;PRESS@ >,MC:.DOVR.;PRESS@ >
:DELETE AI:3;PRESS@ >
:VP 1!:M(M.MDover Hard Copy)
.EMACSHENRY's Emacs Init File-S Initialization macro for Emacs library.%^R Encloses a list in parentheses^R Insert [] putting point between them.
Also make a space before them if appropriate.
With argument, put the ] after the specified number
of already existing s-expressions.  Thus, with argument 1,
puts extra parens around the following s-expression.^R Move over a ], updating indentation.
Any indentation before the ] is deleted.
LISP-style indentation is inserted after the ].^R Insert {} putting point between them.
Also make a space before them if appropriate.
With argument, put the } after the specified number
of already existing s-expressions.  Thus, with argument 1,
puts extra parens around the following s-expression.^R Move over a }, updating indentation.
Any indentation before the } is deleted.
LISP-style indentation is inserted after the }.A^R Inserts ".", new line, capitalizes first word of sentence.B^R Inserts Excl, new line, capitalizes first word of sentence.A^R Inserts "?", new line, capitalizes first word of sentence.E^R Indents for Lisp, but in Miser mode, aligned with CAR of form.?^R Displays Directory. Arg gives most-recent-first listing.:C Setup for working on Actors. Sets modes, loads tags.4C Loads Word Abbreviation library and sets mode.%C Converts to new format comment.&C Comments out code within region.JC Puts page boundaries in Lisp code so that don't break S-expressions.C^R Looks at a file without reading it in and creating a buffer..^R String Search in the reverse direction.4C Start editing a new file containing Lisp code.4C Start editing a new file containing Pub source>^R Insert a pair of double quotes, leaves you inside them.>^R Insert a pair of vertical bars, leaves you inside them.:^R Insert a pair of squiggles, leaves you inside them.+C Read mail -- Alaias for obsolete name2C Makes a variable -- Alaias for obsolete name^R Grind the list following . vertically.
The list following . is ground into standard grind format.
If ^U is given as an argument, miser format is used.IC Makes an XGP'able @ listing. String arg for language, usually Lisp.IC Makes a Doverable @ listing. String arg for language, usually Lisp.IC Makes a Doverable @ listing. String arg for language, usually Lisp.R& Setup .EMACS Library
^R Enclose List
^R Make []
^R Move Over ]
^R Make {}
^R Move Over }
^R End Sentence
^R End Exclamation
^R End Question
^R Indent Miser
^R Directory Display
Actor
Abbrev
Space Comment
Comment Region
Paginate Lisp
^R View File
^R Reverse String Search
New Lisp File
New Text File
^R Double Quotes
^R Vertical Bars
^R Squiggles
RMAIL
Make Variable
^R Stack List Vertically
XGP Hard Copy
Dover Hard Copy
Hard Copy
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2