about summary refs log tree commit diff
diff options
context:
space:
mode:
authorArun Isaac2022-06-20 12:59:30 +0530
committerArun Isaac2022-06-20 13:03:30 +0530
commitb8b2e7784b0d409e0ed6a0bbad9ff5e56b0a86cc (patch)
tree9f4ab9ae6f2bab009da07240f382e3cbacb12070
parent2cd30a0fdaf57ed910479df597e147faed1d9127 (diff)
downloadthogai-b8b2e7784b0d409e0ed6a0bbad9ff5e56b0a86cc.tar.gz
thogai-b8b2e7784b0d409e0ed6a0bbad9ff5e56b0a86cc.tar.lz
thogai-b8b2e7784b0d409e0ed6a0bbad9ff5e56b0a86cc.zip
Always append to paper tape buffer.
* thogai.el (thogai-gemini-protocol-filter): ALways append to paper
tape buffer.
-rw-r--r--thogai.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/thogai.el b/thogai.el
index efcc506..fbbc2f5 100644
--- a/thogai.el
+++ b/thogai.el
@@ -645,6 +645,9 @@ BYTES is a list of 6 bytes in the Gemini protocol."
               (let ((stroke (thogai-gemini-decode-stroke (reverse bytes))))
                 ;; Log to paper tape.
                 (with-current-buffer (process-buffer process)
+                  ;; Explicitly go to end of buffer, just in case
+                  ;; someone messed up the point.
+                  (goto-char (point-max))
                   (insert stroke)
                   (insert "\n"))
                 ;; Insert into stroke ring, and process translation.