Build INFO, the standalone hypertext documentation system.

Using the INFO; INFO EMACS text from EMACS; TSINFO 62, dated 1982-01-05.

For some unknown reason, we can't use a printing terminal when
generating a new TSINFO.  Temporarily switch to AAA then back to LA36.

src/info/info.emacs

@@ -5,35 +5,31 @@
    necessary for dumping a new INFO EJ file.
  *!
 
- :i*INFO m.vEditor Name
- :i..jINFO
- m(m.m Select Buffer)*INFO*
+ :i*INFO m.vEditor Name	    !* Editor Name and ..J must match!
+ :i..jINFO			    !* when the initial ^R is entered!
+				    !* so that our *Initialization* gets called.!
+ :i**INFO*m(m.m Select Buffer)
 
 
 !* Create startup macro to be run when we're 'd.!
  @:i*|	m(m.mLoad Library)INFO    !* load the INFO library!
-	fj :0k hfx1		    !* Q1 gets JCL, sans CR.  It is MMINFO!
-				    !* Enter's arg.!
+	fj :0k hfx1 0fsmodif		    !* Q1 gets JCL, sans CR.  It is MM INFO Enter's arg.!
 	:m..l
      | m.vMM & Startup INFO
 
-!* Create ..L macro to be run if we're G'd afterward.!
- @:i..l|
-	fs echolines-3"g 3 fs echolinesw'
-	
- |
-
 !* When ^K'd, we do a ^R, thus executing this string and entering INFO.!
- @:i*|	@:i*%	m(m.m& Recursive ^R Set Mode)
-		m(m.mInfo Enter)
-		160000. fs exit
-	    % fs ^R enterw
-	m(m.m& Recursive ^R Set Mode)
+ @:i*|  fq1"l :i1'
+	qINFO *Initialization* U*Initialization*
+	0fsmode mac
 	m(m.mInfo Enter)1
 	160000. fs exit
-     | fs ^R enterw
+     | m.v*Initialization*
+ q*Initialization* m.vINFO *Initialization*
 
- m(m.aPURIFYDump Environment)EMACS;TSINFO >
+ fs osteco"e
+   m(m.aPURIFYDump Environment)EMACS;TSINFO >'
+ "#
+   m(m.aPURIFYDump Environment)<EMACS>NINFO.EXE'
 
  FTINFO Dumped