mes: display: Display escaped characters.

* module/mes/display.mes (display): Display escaped characters.

diff --git a/module/mes/display.mes b/module/mes/display.mes
index 65c9b0ecb852ca7e1aaae2e5bcb1c4f197a5533e..9c1e099fd4de685150a7e9cde1f42883096d8d8d 100644 (file)
--- a/module/mes/display.mes
+++ b/module/mes/display.mes
@@ -54,9 +54,27 @@
       (cond ((and write? (or (eq? x #\") (eq? x #\\)))
              (write-char #\\ port)
              (write-char x port))
       (cond ((and write? (or (eq? x #\") (eq? x #\\)))
              (write-char #\\ port)
              (write-char x port))

+            ((and write? (eq? x #\nul))
+             (write-char #\\ port)
+             (write-char #\0 port))
+            ((and write? (eq? x #\alarm))
+             (write-char #\\ port)
+             (write-char #\a port))
+            ((and write? (eq? x #\backspace))
+             (write-char #\\ port)
+             (write-char #\b port))
+            ((and write? (eq? x #\tab))
+             (write-char #\\ port)
+             (write-char #\t port))

             ((and write? (eq? x #\newline))
              (write-char #\\ port)
              (write-char #\n port))
             ((and write? (eq? x #\newline))
              (write-char #\\ port)
              (write-char #\n port))

+            ((and write? (eq? x #\vtab))
+             (write-char #\\ port)
+             (write-char #\v port))
+            ((and write? (eq? x #\page))
+             (write-char #\\ port)
+             (write-char #\f port))

             (#t (write-char x port))))
 
     (define (d x cont? sep)
             (#t (write-char x port))))
 
     (define (d x cont? sep)