edwin: Add input-event unparser. Fix inferior unparser.

diff --git a/src/edwin/editor.scm b/src/edwin/editor.scm
index ef6772a98f09c7c0a5cf8b955e0e908d381253d3..e74655e9c87f0fd6b84b4412f1e63267b633d7aa 100644 (file)
--- a/src/edwin/editor.scm
+++ b/src/edwin/editor.scm
@@ -440,7 +440,13 @@ TRANSCRIPT    messages appear in transcript buffer, if it is enabled;
 
 (define-structure (input-event
                   (constructor make-input-event (type operator . operands))
-                  (conc-name input-event/))
+                  (conc-name input-event/)
+                  (print-procedure
+                   (standard-unparser-method
+                    'input-event
+                    (lambda (event port)
+                      (write-char #\space port)
+                      (write (input-event/type event) port)))))
   (type #f read-only #t)
   (operator #f read-only #t)
   (operands #f read-only #t))

diff --git a/src/edwin/window.scm b/src/edwin/window.scm
index be16a8281b46725b244fe6a6af446190301d36c7..b5dfb87015b45a3d15772faa4399a64bda2a9ec9 100644 (file)
--- a/src/edwin/window.scm
+++ b/src/edwin/window.scm
@@ -366,6 +366,7 @@ USA.
 (unparser/set-tagged-vector-method! %inferior-tag
   (standard-unparser-method 'INFERIOR
     (lambda (inferior port)
+      (write-string " " port)
       (write (inferior-window inferior) port)
       (write-string " x,y=(" port)
       (write (inferior-x-start inferior) port)