Scroll to end of paper tape buffer after insertion.

* thogai.el (thogai-gemini-protocol-filter): Scroll all relevant
windows to the end of paper tape buffer after insertion.

1 files changed, 5 insertions, 1 deletions

diff --git a/thogai.el b/thogai.el
index fbbc2f5..1d32dcd 100644
--- a/thogai.el
+++ b/thogai.el
@@ -649,7 +649,11 @@ BYTES is a list of 6 bytes in the Gemini protocol."
                   ;; someone messed up the point.
                   (goto-char (point-max))
                   (insert stroke)
-                  (insert "\n"))
+                  (insert "\n")
+                  ;; Scroll to the end of windows showing the paper
+                  ;; tape buffer.
+                  (dolist (window (get-buffer-window-list (process-buffer process) nil t))
+                    (set-window-point window (point-max))))
                 ;; Insert into stroke ring, and process translation.
                 (ring-insert thogai-stroke-ring stroke)
                 (thogai-process-stroke thogai-stroke-ring))