Older version of INFO; INFO EMACS.

This is dated 1979-06-02.  Using it to build TSINFO doesn't make a fully
working INFO program.

src/info/info.emacs

@@ -0,0 +1,40 @@
+
+!* -*-TECO-*- *!
+
+!* This is the EMACS init for INFO.  It sets up the EMACS/INFO environment
+   necessary for dumping a new INFO EJ file.
+ *!
+
+ :i*INFO m.vEditor Name
+ :i..jINFO
+ m(m.m Select Buffer)*INFO*
+
+
+!* 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.!
+	: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)
+	m(m.mInfo Enter)1
+	160000. fs exit
+     | fs ^R enterw
+
+ m(m.aPURIFYDump Environment)EMACS;TSINFO >
+
+ FTINFO Dumped
+
+ 160000. fs exit