1 files changed, 18 insertions, 0 deletions
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
+    '
+  ]*
+}