aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--thogai.el13
1 files changed, 7 insertions, 6 deletions
diff --git a/thogai.el b/thogai.el
index d64e3e5..241beaf 100644
--- a/thogai.el
+++ b/thogai.el
@@ -333,13 +333,14 @@ STROKES is injected first."
;; Inject strokes one by one.
(dolist (stroke strokes)
(ring-insert stroke-ring stroke)
- (thogai-insert-stroke stroke-ring))))
+ (thogai-process-stroke stroke-ring))))
-(defun thogai-insert-stroke (stroke-ring)
- "Translate the most recent stroke and insert it at point.
+(defun thogai-process-stroke (stroke-ring)
+ "Process the most recent stroke.
-STROKE-RING is the ring representing the current state, and
-should typically be `thogai-stroke-ring'."
+Process the most recent stroke, and insert its translation or
+execute a command. STROKE-RING is the ring representing the
+current state, and should typically be `thogai-stroke-ring'."
(if (string= (ring-ref stroke-ring 0) "*")
;; Special case to handle the undo operation
(progn
@@ -467,7 +468,7 @@ BYTES is a list of 6 bytes in the Gemini protocol."
(insert "\n"))
;; Insert into stroke ring, and process translation.
(ring-insert thogai-stroke-ring stroke)
- (thogai-insert-stroke thogai-stroke-ring))
+ (thogai-process-stroke thogai-stroke-ring))
(setq bytes nil))))))
(defun thogai-connect (port speed)