From 3ed3a5a31f4bc05e8666c64ed605329703881343 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 20 Jun 2022 13:00:58 +0530
Subject: 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.
---
 thogai.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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))
-- 
cgit v1.2.3