From 1df9423094fb9a8dd50173f4efb16f49fd74a3a0 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Mon, 6 Mar 2017 20:43:56 -0700 Subject: [PATCH] edwin: Add input-event unparser. Fix inferior unparser. --- src/edwin/editor.scm | 8 +++++++- src/edwin/window.scm | 1 + 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/src/edwin/editor.scm b/src/edwin/editor.scm index ef6772a98..e74655e9c 100644 --- 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 be16a8281..b5dfb8701 100644 --- 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) -- 2.25.1