From e38139612074fc6d174f58aa1d56536583a28269 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sat, 16 Jun 2018 18:37:14 +0200
Subject: [PATCH] Workaround for bad EMACS timestamps.

Also make the build script ensure that EMACS; [PURE], [PRFY], and
EINIT are built.
---
 Makefile        | 3 +++
 build/emacs.tcl | 4 +++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/Makefile b/Makefile
index 602a2d02..5331bc39 100644
--- a/Makefile
+++ b/Makefile
@@ -66,6 +66,9 @@ $(OUT)/ka-minsys.tape: $(ITSTAR)
 $(OUT)/sources.tape: $(ITSTAR) build/$(EMULATOR)/stamp $(OUT)/syshst/$(H3TEXT)
 	mkdir -p $(OUT)
 	rm -f src/*/*~
+	touch -d 1981-10-06T19:03:37 'bin/emacs/einit.:ej'
+	touch -d 1981-09-19T21:42:56 'bin/emacs/[pure].162'
+	touch -d 1981-03-31T20:41:45 'bin/emacs/[prfy].173'
 	cd src; $(ITSTAR) -cf ../$@ $(SRC)
 	cd doc; $(ITSTAR) -rf ../$@ $(DOC)
 	cd bin; $(ITSTAR) -rf ../$@ $(BIN)
diff --git a/build/emacs.tcl b/build/emacs.tcl
index 0e1cbe49..46a1a3ce 100644
--- a/build/emacs.tcl
+++ b/build/emacs.tcl
@@ -12,7 +12,9 @@ respond "*" ":link sys3;ts teco,.teco.;tecpur >\r"
 respond "*" ":link sys2;ts emacs,emacs;ts >\r"
 respond "*" ":emacs\r"
 respond "EMACS Editor" "\033xrun\033einit\033? Generate\r"
-expect -timeout 2000 "EINIT"
+expect -timeout 1000 -exact { -> DSK: EMACS; [PURE]}
+expect -timeout 1000 -exact { -> DSK: EMACS; [PRFY]}
+expect -timeout 1000 -exact { -> DSK: EMACS; EINIT}
 respond ":EJ" "\033xgenerate\033emacs;aux\033emacs1;aux\r"
 respond ":EJ" "\030\003"
 respond "*" ":kill\r"