about summary refs log tree commit diff
diff options
context:
space:
mode:
authorArun Isaac2022-06-16 00:42:04 +0530
committerArun Isaac2022-06-16 00:43:20 +0530
commitd22f62e9e2d0d03bf9deba8dbfa5177a514083d7 (patch)
tree644b2b7805931348df817894a3c87c489e55e800
parentdaa980d1e2becc6907998290503cc768f6aa8fcc (diff)
downloadthogai-d22f62e9e2d0d03bf9deba8dbfa5177a514083d7.tar.gz
thogai-d22f62e9e2d0d03bf9deba8dbfa5177a514083d7.tar.lz
thogai-d22f62e9e2d0d03bf9deba8dbfa5177a514083d7.zip
Implement prefixes in terms of the attach operator.
* thogai.el (thogai-insert-translation): Implement prefixes in terms
of the attach operator.
-rw-r--r--thogai.el9
1 files changed, 4 insertions, 5 deletions
diff --git a/thogai.el b/thogai.el
index 44c1716..8a8091f 100644
--- a/thogai.el
+++ b/thogai.el
@@ -254,11 +254,10 @@ External callers should always pass nil as the value."
        ;; Prefix
        ((pred (lambda (str)
                 (string-suffix-p "^}" str)))
-        (unless non-first-part-p
-          (thogai-insert-space))
-        (thogai-insert-literal
-         (string-remove-prefix "{" (string-remove-suffix "^}" translation)))
-        (setq thogai-attach-next t))
+        (thogai-insert-translation
+         (concat (string-remove-prefix "{" (string-remove-suffix "^}" translation))
+                 "{^}")
+         non-first-part-p))
        ;; Glue operator
        ((pred (lambda (str)
                 (and (string-prefix-p "{&" str)