opener.check-recovery now checks for and warns about the presence of recovery `#files#`

* This could have been in ring.c, but in the future we may want to script
  the behavior in case recovery files are detected.
* The warnings are currently written as user messages, which looks
  ugly in interactive mode.
  Once n^A is supported, we can write them as regular warnings, though (FIXME).

2 files changed, 18 insertions, 0 deletions

diff --git a/fallback.teco_ini b/fallback.teco_ini
index bf1add7..bd92c29 100644
--- a/fallback.teco_ini
+++ b/fallback.teco_ini
diff --git a/lib/opener.tes b/lib/opener.tes
index c0183c8..59af79a 100644
--- a/lib/opener.tes
+++ b/lib/opener.tes
@@ -36,3 +36,21 @@
     EBN[
\.i] Q.c-1,Q.l-1ESFINDCOLUMN:J
   >
 ]* }
+
+!*$
+ * M[opener.check-recovery] -- Warn if there if a recovery file (#filename#) is detected
+ *
+ * This points to a prior crash or unexpected termination.
+ *!
+@[opener.check-recovery]{
+  :Q*"=  '
+  [*
+    EQ.f G* I# R
+    <-A"I 1; ' :R;>
+    I#
+    1:EN*Q.f"S
+      !* FIXME: log as a true warning once 
 supports it *!
+      
Warning: Detected recovery file "Q.f"^J

+    '
+  ]*
+}