1
0
mirror of https://github.com/PDP-10/its.git synced 2026-03-14 22:28:26 +00:00

Minimal EMACS install.

This commit is contained in:
Lars Brinkhoff
2016-11-01 08:15:10 +01:00
parent a0a9dc8bfb
commit 3e5e037d13
14 changed files with 24628 additions and 2 deletions

View File

@@ -1,7 +1,7 @@
EMULATOR ?= simh
SRC = system syseng sysen1 sysen2 sysnet kshack midas _teco_ rms klh dragon channa
MINSYS = _ sys sys3 device
SRC = system syseng sysen1 sysen2 sysnet kshack dragon channa midas _teco_ emacs rms klh
MINSYS = _ sys sys3 device emacs _teco_
RAM = bin/boot/ram.262
NSALV = bin/boot/salv.rp06
DSKDMP = bin/boot/dskdmp.rp06

View File

@@ -41,6 +41,7 @@ from scratch.
5. Remaining programs are rebuilt:
- TECO, editor.
- EMACS, binaries only.
- DUMP, tape backup and restore.
- PDSET, set time and date.
- KSFEDR, manipulate front-end file system.

BIN
bin/_teco_/tecpur.1211 Executable file

Binary file not shown.

BIN
bin/emacs/[pure].162 Executable file

Binary file not shown.

BIN
bin/emacs/emacs.:ej Executable file

Binary file not shown.

BIN
bin/emacs/ts.126 Executable file

Binary file not shown.

1
bin/sys/ts.emacs Symbolic link
View File

@@ -0,0 +1 @@
emacs/ts.>

1
bin/sys3/ts.emacs Symbolic link
View File

@@ -0,0 +1 @@
emacs/ts.126

View File

@@ -9,6 +9,7 @@
- DUMP: [manual](_info_/dump.info), [format](sysdoc/dump.format)
- TECO: [primer](_teco_/teco.primer), [manual](info/tecman.20),
[commands](_teco_/tecord.1132)
- EMACS: [manual](emacs1/emacs.guide), [info](info/emacs.147)
- CRTSTY: [manual](info/crtsty.39)
- TCTYP: [manual](_info_/tctyp.order)
- DSKDUMP: [commands](sysdoc/dskdmp.order)
@@ -34,6 +35,7 @@ The `$` character represents typing ESC.
| ln f1 f2 | $^O f1,f2 | :link f1,f2 |
| mv f1 f2 | $$^O f1,f2 | :rename f1,f2 |
| mv file dir | | :move file,dir |
| emacs | | :emacs |
| ps | $$v | :listj |
| killall -9 id | id$j $^X | :job id :kill |
| sudo -u u cmd | u$^S cmd | |

719
doc/emacs/emacs.index Executable file
View File

@@ -0,0 +1,719 @@
Meta-< goes to beginning of buffer.
(Previous Screen)
Meta-V
Rubout or Delete : Control-D
<-------------------- : --------------------->
(Deletes Backward) : (Deletes Forward)
(Previous Line)
Control-P
:
:
Control-A ........ Control-B .... Cursor .... Control-F ........ Control-E
(Head of Line) (Move Backward) : (Move Forward) (End of Line)
:
Control-N
(Next Line)
---------> :
Control-T : Control-K
<--------- : =====================>
(Transpose Characters) : (Kills to end of line)
:
Control-V
(Next Screen)
Meta-> goes to end of buffer.
Emacs commands try to be very regular. There are Meta- commands similar
to these Control- commands which work on words in much the same way as
these commands work on characters. Control-Meta- commands work in similar
ways on Lisp S-Expressions. Watch for and make use of these trends. They
can really reduce the number of things you have to remember.
--------------------------- Useful Sub-Topics ------------------------------
*** HELP ***
The magic [Help] character is Top-H (or on Ascii keyboards: Control-_ H).
It will offer help of various sorts almost anywhere at any time. In most
places, it will offer you a menu of several possible kinds of
documentation, where you must type another character to get the desired
kind of help. At such times, the following are especially useful:
[Help] C will read another character and describe its action. You should
use this to describe any commands you read about in this document
which you would like to understand in full detail. The info given
here is intended only as an index and is not complete.
[Help] ? will give you a description of the several other very useful
options available through the [Help] facility.
*** QUIT ***
Control-G aborts all currently executing operations, flushes
typeahead, and leaves you at the innermost invocation of ^R-mode.
Control-] aborts a recursive ^R-mode (such as RMail Reply -- exits
without sending any mail).
Emacs Command Index Page 2
Useful META- Commands
(On an ascii keyboard, Meta-<char> is Altmode <char>)
Meta-[ goes to Beginning of Paragraph
Control-X Rubout
<===========================
(Delete Sentence Backward)
Meta-Rubout or Meta-Delete Meta-D
<--------------------------- --------------------->
(Deletes Word Backward) (Deletes Word Forward)
Meta-A ........ Meta-B .... Cursor .... Meta-F ........ Meta-E
(Head of Sentence) (Back Word) (Forward Word) (End of Sentence)
--------->
Meta-T Meta-K
<--------- <====================>
(Transpose Words) (Kills Current sentence)
Meta-] goes to End of Paragraph
------------------------------------------------------------------------------
Useful CONTROL-META- Commands
(On an ascii keyboard, C-M-<char> is Control-C <char>)
C-M-[ goes to Beginning of Defun
C-M-Rubout or C-M-Delete C-M-K
<---------------------- --------------------->
(Deletes S-Expression Backward) (Deletes S-Expression Forward)
(Backward Up List)
C-M-U
:
(Backward List)
C-M-P
:
C-M-A ............. C-M-B ....... Cursor ....... C-M-F .......... C-M-E
(Beginning of S-Exp) (Back S-Exp) : (Forward S-Exp) (End of S-Exp)
C-M-N
(Forward List)
---------> :
C-M-T C-M-D
<--------- (Forward Down List)
(Transpose S-Expressions)
C-M-] goes to End of Defun
Emacs Command Index Page 3
*** EXTENDED COMMANDS ***
Meta-X runs the extended command set completing reader (MM Commands).
*** SPECIAL PREFIX CHARACTERS ***
Control-X (Dispatch Character)
reads exactly one more character. What that character is
will decide what command is run. These commands, called the
'Control-X commands' can be documented by typing Control-X ?
Control-U (Argument Prefix)
is the 'Universal' argument prefix.
Control-U digit digit ... digit non-digit-command
will accumulate the digits as a numerical argument to the
next command. For example,
Control-U 1 2 3 Control-B
moves backward 123 characters. If not followed by digits,
Control-U will multiply the arg to the next command by 4. eg,
Control-U Control-B
will move backward 4 characters - note that
Control-U Control-U Control-B
will move backward 16 characters.
*** PREFIX CHARACTERS FOR ASCII TERMINALS (Non-TV's) ***
Control-^ - Prefix Control Altmode - Prefix Meta
Control-C - Prefix Control-Meta Control-\ - Prefix Meta
These commands read the next character and adjust it appropriately.
For example, Control-C C is equivalent to Control-Meta-C and Altmode C is
equivalent to Meta-C.
*** QUOTE ***
Control-Q is the EMACS quote character. The next character typed
after it will be inserted literally into the buffer rather than
having its normal effect.
------------------------------------------------------------------------------
Disclaimer: This documentation lies about one thing. There is a difference
between Control-H and Backspace, Control-I and Tab, Control-J
and Linefeed, etc. but most of these pairs of keys do identical
things and the distinction would not be interesting to most
people, so for simplicity they are treated as synonymous here
when in fact they are not. Sophisticated users should see other
documentation for more details.
Emacs Command Index Page 4
******************************************************************************
* Cursor Control *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
H : Backspace or : Backward Character
: Control-H :
------------------------------------------------------------------------------
: Control-A : Beginning of Line
:----------------:-------------------------------------------------
A : Meta-A : Beginning of Sentence
:----------------:-------------------------------------------------
: Control-Meta-A : Beginning of Defun
------------------------------------------------------------------------------
: Control-B : Backward Character
:----------------:-------------------------------------------------
B : Meta-B : Backward Word
:----------------:-------------------------------------------------
: Control-Meta-B : Backward S-Expression
------------------------------------------------------------------------------
D : Control-Meta-D : Down List
------------------------------------------------------------------------------
: Control-E : End of Line
:----------------:-------------------------------------------------
E : Meta-E : End of Sentence
:----------------:-------------------------------------------------
: Control-Meta-E : End of Defun
------------------------------------------------------------------------------
: Control-F : Forward Character
:----------------:-------------------------------------------------
F : Meta-F : Forward Word
:----------------:-------------------------------------------------
: Control-Meta-F : Foward S-Expression
------------------------------------------------------------------------------
: Meta-M : Move to beginning of text on current line
M :----------------:-------------------------------------------------
: Control-Meta-M : Move to beginning of text on current line
------------------------------------------------------------------------------
: Meta-[ : Move to beginning of paragraph
:----------------:-------------------------------------------------
[ : Control-Meta-[ : Move to beginning of defun
:----------------:-------------------------------------------------
: Control-X [ : Move to beginning of page
------------------------------------------------------------------------------
: Meta-] : Move to beginning of paragraph
:----------------:-------------------------------------------------
] : Control-Meta-] : Move to beginning of DEFUN
:----------------:-------------------------------------------------
: Control-X ] : Move to beginning of page
------------------------------------------------------------------------------
Emacs Command Index Page 5
******************************************************************************
* CURSOR CONTROL (cont'd) *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
: Control-N : Move to Next Line
:----------------:-------------------------------------------------
N : Meta-N : Move to Next Comment Line
:----------------:-------------------------------------------------
: Control-Meta-N : Move across Next List
------------------------------------------------------------------------------
: Control-P : Move to Previous Line
:----------------:-------------------------------------------------
P : Meta-P : Move to Previous Comment Line
:----------------:-------------------------------------------------
: Control-Meta-P : Move across Previous List
------------------------------------------------------------------------------
U : Control-Meta-U : Up List
------------------------------------------------------------------------------
: Control-V : View Next Page
V :----------------:-------------------------------------------------
: Meta-V : View Previous Page
------------------------------------------------------------------------------
X : Control-X ^X : Exchange point (cursor position) and mark
------------------------------------------------------------------------------
******************************************************************************
* DISPLAY *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
L : Form or : Clears screen and redisplays
: Control-L :
------------------------------------------------------------------------------
: Meta-R : Move cursor relative to screen position
R :----------------:-------------------------------------------------
: Control-Meta-R : Reposition window
------------------------------------------------------------------------------
Emacs Command Index Page 6
******************************************************************************
* SEARCHING *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
R : Control-R : Reverse Search
------------------------------------------------------------------------------
S : Control-S : Search (forward)
------------------------------------------------------------------------------
******************************************************************************
* MOVING TEXT *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
: Control-T : Transpose Characters
:----------------:-------------------------------------------------
T : Meta-T : Transpose Words
:----------------:-------------------------------------------------
: Control-Meta-T : Transpose S-Expressions
:----------------:-------------------------------------------------
: Control-X ^T : Transpose Lines
:------------------------------------------------------------------
: Control-X T : Transpose Regions
------------------------------------------------------------------------------
------------------------------------------------------------------------------
******************************************************************************
* PREFIX CHARACTERS *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
Altmode : Altmode : Meta-Prefix Character
: : (doesn't do this in a mini-buffer)
------------------------------------------------------------------------------
\ : Control-\ : Meta-Prefix Character
: : (good for use in mini-buffer)
------------------------------------------------------------------------------
C : Control-C : Control-Meta Prefix Character
------------------------------------------------------------------------------
Q : Control-Q : Quote Prefix (Inserts next character typed)
------------------------------------------------------------------------------
U : Control-U : 'Universal' Argument Prefix
------------------------------------------------------------------------------
X : Control-X : Control-X Command Prefix
------------------------------------------------------------------------------
Emacs Command Index Page 7
******************************************************************************
* READING AND WRITING FILES *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
F : Control-X ^F : Find File
------------------------------------------------------------------------------
Q : Control-X ^Q : Inhibit Auto-Writeback
------------------------------------------------------------------------------
R : Control-X ^R : Read File
------------------------------------------------------------------------------
S : Control-X ^S : Save File (under default filename)
------------------------------------------------------------------------------
V : Control-X ^V : Visit File
------------------------------------------------------------------------------
W : Control-X ^W : Write File (reads a filename)
------------------------------------------------------------------------------
******************************************************************************
* BUFFER MANIPULATION *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
A : Control-X A : Append to Buffer
------------------------------------------------------------------------------
: Control-X B : Select Buffer
B :----------------:-------------------------------------------------
: Control-X ^B : List Buffers
------------------------------------------------------------------------------
K : Control-X K : Kill Buffer
------------------------------------------------------------------------------
Emacs Command Index Page 8
******************************************************************************
* INDENTATION *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
: Tab or :
: Control-I : Indent According to Mode
:----------------:-------------------------------------------------
I : Meta-I : Indent to Tab Stop
:----------------:-------------------------------------------------
: Control-Meta-I : Indent for Lisp
:----------------:-------------------------------------------------
: ^X Tab : Indent Rigidly
------------------------------------------------------------------------------
J : Linefeed or :
: Control-J : Indent New Line
------------------------------------------------------------------------------
Q : Control-Meta-Q : Indent All Lines in Next S-Expression
------------------------------------------------------------------------------
; : Meta-; : Indent for Comment
------------------------------------------------------------------------------
******************************************************************************
* BLANK LINES AND CARRIAGE RETURNS *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
: Control-M : Insert a Carriage-Return (TV's only)
M :----------------:-------------------------------------------------
: Return : Insert a Carriage-Return + Linefeed (CRLF)
------------------------------------------------------------------------------
: Control-O : Open a Blank Line (insert a CRLF after cursor)
:----------------:-------------------------------------------------
O : Control-Meta-O : Open a Blank Line; move text vertically down
:----------------:-------------------------------------------------
: Control-X ^O : Kill Blank Lines around this line's end
------------------------------------------------------------------------------
Emacs Command Index Page 9
******************************************************************************
* MARKING A REGION *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
: Meta-H : Mark Paragraph
:----------------:-------------------------------------------------
H : Control-Meta-H : Mark S-Expression
:----------------:-------------------------------------------------
: Control-X H : Mark Whole Buffer
------------------------------------------------------------------------------
P : Control-X ^P : Mark Page
------------------------------------------------------------------------------
******************************************************************************
* TEXT DELETION *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
: Rubout : Delete character backward
:----------------:-------------------------------------------------
: Meta-Rubout : Delete word backward
Rubout :----------------:-------------------------------------------------
or : Control-Meta- : Delete s-expression backward
Delete : Rubout :
:----------------:-------------------------------------------------
: Control-X : Delete sentence backward
: Rubout :
------------------------------------------------------------------------------
: Control-D : Delete character forward
D :----------------:-------------------------------------------------
: Meta-D : Delete word forward
------------------------------------------------------------------------------
: Control-K : Kill Line Forward
:----------------:-------------------------------------------------
K : Meta-K : Kill Sentence Forward
:----------------:-------------------------------------------------
: Control-Meta-K : Kill S-Expression Forward
------------------------------------------------------------------------------
W : Control-W : Kill Region
------------------------------------------------------------------------------
; : Control-Meta-; : Kill Comment
------------------------------------------------------------------------------
Emacs Command Index Page 10
******************************************************************************
* TEXT COPYING *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
A : Control-X A : Append Region to a Specified Buffer
------------------------------------------------------------------------------
: Meta-W : Copy Region
W :----------------:-------------------------------------------------
: Control-Meta-W : Make next kill join previous in kill buffer
------------------------------------------------------------------------------
******************************************************************************
* RESTORING DELETED/COPIED TEXT *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
: Control-Y : Yank last item from kill buffer into buffer.
:----------------:-------------------------------------------------
Y : Meta-Y : Yank 'the kill before that' (only after ^Y)
:----------------:-------------------------------------------------
: Control-Meta-Y : Mini-buffer only: Yank last mini-buffer
: : command string.
: : RMAIL Reply only: Yank text of message.
: : (Not defined anywhere else)
-------------------------------------------------------------------------------
******************************************************************************
* COMMENT FIELDS *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
: Meta-J : Indent New Comment Line
J :----------------:-------------------------------------------------
: Control-Meta-J : Indent New Comment Line
------------------------------------------------------------------------------
N : Meta-N : Move to Next Comment Line
------------------------------------------------------------------------------
P : Meta-P : Move to Previous Comment Line
------------------------------------------------------------------------------
: Meta-; : Indent for Comment
:----------------:-------------------------------------------------
; : Control-Meta-; : Kill Comment
:----------------:-------------------------------------------------
: Control-X ; : Set Comment Column
------------------------------------------------------------------------------
Emacs Command Index Page 11
******************************************************************************
* SUBSYSTEMS *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
D : Control-X D : DIRED (a Directory Editor)
------------------------------------------------------------------------------
I : Control-X I : INFO (like :INFO at DDT)
------------------------------------------------------------------------------
M : Control-X M : MAIL (send MAIL to other users)
------------------------------------------------------------------------------
R : Control-X R : RMAIL (like :RMAIL at DDT)
------------------------------------------------------------------------------
******************************************************************************
* TECO RELATED COMMANDS *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
G : Control-X G : Get from Q-Register
-------------------------------------------------------------------------------
X : Control-X X : Put in Q-Register
-------------------------------------------------------------------------------
******************************************************************************
* EXTENDED COMMANDS *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
: Meta-X : Extended Command
X :----------------:-------------------------------------------------
: Control-Meta-X : Extended Command, reading its own arguments
------------------------------------------------------------------------------
Emacs Command Index Page 12
******************************************************************************
* QUIT/EXIT COMMANDS *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
: Control-Meta-C : Exit recursive edit
C :----------------:-------------------------------------------------
: Control-X ^C : Exit Job Temporarily - Return to Superior
------------------------------------------------------------------------------
G : Control-G : Abort currently executing command
------------------------------------------------------------------------------
] : Control-] : Abort a recursive ^R-mode
: : (eg, flush RMAIL Reply without sending mail)
------------------------------------------------------------------------------
Z : Control-Z : Exit Job Temporarily - Return to superior
------------------------------------------------------------------------------
******************************************************************************
* SETTING COLUMN VARIABLES *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
F : Control-X F : Set Fill Column
------------------------------------------------------------------------------
N : Control-X ^N : Set goal column (for ^N and ^P commands)
------------------------------------------------------------------------------
******************************************************************************
* DIRECTORY HACKING COMMANDS *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
: Control-X D : DIRED (a Directory Editor)
D :----------------:-------------------------------------------------
: Control-X ^D : Directory Listing (of files related to buffer)
------------------------------------------------------------------------------
Emacs Command Index Page 13
******************************************************************************
* CASIFYING *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
C : Meta-C : Capitalize Word
------------------------------------------------------------------------------
: Meta-L : Lowercasify word
L :----------------:-------------------------------------------------
: Control-X ^L : Lowercasify Region
------------------------------------------------------------------------------
: Meta-U : Uppercasify word
U :----------------:-------------------------------------------------
: Control-X ^U : Uppercasify region
------------------------------------------------------------------------------
******************************************************************************
* FORMATTING TEXT *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
: Meta-G : Fill Text Region
G :----------------:-------------------------------------------------
: Control-Meta-G : Grind Lisp or Macsyma code
------------------------------------------------------------------------------
Q : Meta-Q : Fill paragraph
------------------------------------------------------------------------------
S : Meta-S : Center text on line
------------------------------------------------------------------------------
******************************************************************************
* INFORMATION ABOUT BUFFERED TEXT *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
L : Control-X L : Count Lines on Current Page
------------------------------------------------------------------------------
= : Control-X = : Info about Screen and Buffer Position
------------------------------------------------------------------------------
Emacs Command Index Page 14
******************************************************************************
* COMMANDS FOR DEALING WITH 2 WINDOWS *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
1 : Control-X 1 : Return to 1-window mode
------------------------------------------------------------------------------
2 : Control-X 2 : Enter 2-window mode (use other window)
------------------------------------------------------------------------------
3 : Control-X 3 : Enter 2-window mode (use same window)
------------------------------------------------------------------------------
4 : Control-X 4 : Enter 2-window mode with fancy options
------------------------------------------------------------------------------
O : Control-X O : Move to Other Window
------------------------------------------------------------------------------
V : Control-Meta-V : View Next Page of other window
------------------------------------------------------------------------------
^ : Control-X ^ : Grow Window
------------------------------------------------------------------------------
******************************************************************************
* CHANGING VIRTUAL BUFFER BOUNDARIES *
******************************************************************************
------------------------------------------------------------------------------
: :
Character : Control-Bits : Meaning
: :
------------------------------------------------------------------------------
N : Control-X N : Narrow Buffer Bounds (to size of region)
-------------------------------------------------------------------------------
P : Control-X P : Narrow Buffer Bounds (to current page)
------------------------------------------------------------------------------
W : Control-X W : Widen buffer boundaries (to whole buffer)
------------------------------------------------------------------------------

12937
doc/emacs1/emacs.guide Executable file

File diff suppressed because it is too large Load Diff

1686
doc/info/conv.85 Executable file

File diff suppressed because it is too large Load Diff

9203
doc/info/emacs.147 Executable file

File diff suppressed because it is too large Load Diff

76
src/emacs/*.emacs Executable file
View File

@@ -0,0 +1,76 @@
!* -*-TECO-*- *!
!* This is the default init file for EMACS.
Anything in the buffer when you start this
will be used instead of the JCL.
It is generally a bad idea to try to make an init file
by copying this one with changes. The right way, usually, is
to make your own small init file which jumps to this one at the end,
as described in INFO;CONV >. *!
fs qp ptr[9 !* save pdl pointer for unwinding!
FQ(0FO..QAuto Save Filenames)-1"L
FS MSNAME:F6[0
:I*DSK:0;_SAV00 > M.VAuto Save Filenames ]0'
!* On non-meta keyboards, allow Alt 1 2 to mean an arg of 12, as long as user!
!* has not reconnected meta-digits. Similarly for meta-minus.!
FS %TOFCI"E !* 9-bit keyboard.!
M.M ^R Autoarg[0 460.-1[1 f..0fs^RInit[2
10< %1@fs^RCMac-q2"e q0,q1@fs^RCMac' >
f..-fs^RInit-q..-"e Q0U..-'
]2 ]1 ]0'
fsxunamef(:f6[1)-(fshsname)"e et.FOO. >'"# et1 >' ]1
FS MSNAME FS D SNAME
!* Now we have done enough that things will be OK if the EVARS file gets an!
!* error and throws back to the ^R. The EVARS file should not be processed!
!* twice, e.g. in case it loads libraries, and a dumped EMACS should be able!
!* to jump to the default init. Hence the variable check.!
0fo..qInit Vars Processed"e !* If not yet done it, process!
M(M.M & Process Init Vars) !* FOO;FOO EVARS or EMACS.VARS.!
1m.vInit Vars Processedw' !* Do not do it again.!
FS XJNAME :F6 [J
F[D FILE
FS %OPLSP(F~JLISPT"'E)(F~JMACST"'E)"N
1,M(M.M& Get Library Pointer)LISPT"e !* Load LISPT if not!
m(m.m Load Library)LISPT'' !* loaded already.!
F~JMAILT "E :IEditor TypeMAILT
:iDefault Major ModeText
f~ModeText"n M(M.MTEXT MODE)' fr !* Text mode if not in it yet.!
0FO..Q Inhibit Help Message"E
FTEdit escape from :MAIL to EMACS. Type ^C^C to return to MAIL.
''
F]D FILE
1:< QFind File Inhibit Write UInhibit Write >
!* Process the JCL!
0[0 0[1
Z"E FJ' ZJ !* Get JCL, or use whatever previous init file left in buffer.!
."N !* Process JCL command - extract filenames and commands!
0,-1A-î"E -2D' !* REMOVE CRLF AT END IF ANY *!
J :S"N .,Z^ FX1 -D' !* IF COMMANDS TO EXECUTE, PUT THEM IN Q1!
HFX0' !* IF FILE TO BE READ, PUT NAME IN Q0!
HK 0FS MODIFIED
0FO..Q Inhibit Help Message"E
Q0"E Q1"E !* If no commands / file to read, offer help.!
qEMACS Version:\[1 !* get version no. as string!
FTEMACS Editor, version 1 - type Help
FS %TOFCI"N FT(Top-H)'
"# FT(^_H)'
FT for help.
 ]1
'''
FQ0"G
0fo..qTags Find File"e
QInhibit Write, M(M.M Visit File)0' !* Visit file specified.!
"# m(m.mFind File)0'' !* unless user generally likes Find File,!
!* in which case use it!
Q1"N M1' !* Execute any commands from JCL!
q9fsqpunwind