There are no other files named emacs.sample-user-init in the archive.
!* A sample EMACS Init, taken from one Eugene Ciccarelli set up
* for a user on BBND.!
!* MKDUMP call should come first, since it prepares the environment
* (in particular the method of library loading) so that it may be dumped
* out later, if desired.!
m(m.mRun Library)MKDUMPPrepare For Loading Libraries
m(m.mLoad Library)WORDAB !* Load word abbrevs library.!
m(m.mLoad Library)TMACS !* Load other neat things.!
!* Redefine some EMACS keys a bit: !
1uDisplay Matching Paren !* Turn on automatic ).!
!* (Except in Teco mode... so we!
!* have to do that via a hook.)!
m.m^R Select Bufferu:.x() !* Control-X Control-B to get!
!* TMACS version.!
m.mSend Mailu:.x(M) !* Control-X M!
m.m^R Character Searchu.S !* Control-S!
m.m^R String Searchu..S !* Meta-S!
m.m^R Reverse Character Searchu.R !* Control-R!
m.m^R Reverse String Searchu..R !* Meta-R!
m.m^R Indent Underu..I !* Meta-I!
m.m^R Indent Relativeu...I !* Control-Meta-I!
!* A few to make better consistency!
!* of character/word/list C-/M-/C-M- !
m.m^R Kill Sexpu...D !* Control-Meta-D!
m.m^R Backward Paragraphu..P !* Meta-P!
m.m^R Forward Paragraphu..N !* Meta-N!
m.m^R Backward Up Listu...P !* Control-Meta-P!
m.m^R Down Listu...N !* Control-Meta-N!
!* Set a few modes: !
m(m.mAuto Fill Mode) !* Always fill by default.!
1,1 m(m.mWord Abbrev Mode) !* Allow word abbrev defining.!
1:< m(m.mRead Word Abbrev File)WORDAB.DEFNS >w
!* Read in word abbrevs if any. Ignore!
!* any error, e.g. no file exists.!
1:< m(m.mRead Incremental Word Abbrev File)INCABS..0 >w
!* Read in any word abbrevs that!
!* have been defined lately but not!
!* yet written out into main abbrev file!
@:i*| 1:< m(m.mRead Incremental Word Abbrev File)INCABS..0 >w
|m.vDumped EMACS Startup Hookw !* At dump startup time,!
!* read in any abbrevs that were!
!* defined after dumping out.!
m(m.mText Mode) !* Put initial buffer into Text mode!
m.mText Modem.vBuffer Creation Hookw !* New buffers will!
!* automatically come up in Text mode.!
@:i*| !* Define a command to make a wall chart!
qWord Abbrev Mode( !* Save whether we were in it for later!
0m(m.mWord Abbrev Mode) !* Go out of Word Abbrev Mode for chart!
m(m.mRun Library)ABSTRWall Chart.X !* Which will!
!* temporarily load ABSTR, make chart!
!* (including Control-X commands).!
)"n !* We were in Word Abbrev Mode before.!
1,1:m(m.mWord Abbrev Mode)' !* So go into it now.!
!* And then return, unloading ABSTR.!
|m.vMM My Wall Chartw !* Call this MM My Wall Chart!
:i*C Insert wall chart for this EMACS into buffer.
Will temporarily load the ABSTR library and run its MM Wall Chart command,
which looks at your environment and makes a chart of all the key commands,
including Control-X commands.
m.vMM ~DOC~ My Wall Chartw !* Give the command some documentation.!
@:i*| 1uDisplay Matching Paren |m.vTeco Mode Hookw
!* Want matching ) in Teco mode too.!
!* Now jump into the normal EMACS init: !
er<EMACS>EMACS.INIT @y !* Read in the init file.!
etDSK: fsHSNamefsDSNamew !* Default to home directory.!
etTEMP TTY !* And to TEMP.TTY.!
:m(hfx*) !* Jump to default EMACS init.!