aboutsummaryrefslogtreecommitdiff
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.