From 5b8a3288559c745b3815a60f3a810fe8c1c64cc4 Mon Sep 17 00:00:00 2001
From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com>
Date: Sun, 25 Jan 2026 12:28:09 +0000
Subject: [PATCH] Fix: words with embedded hyphens now split at hyphens instead
 of using hyphenation algorithm

Co-authored-by: Kinneyzhang <38454496+Kinneyzhang@users.noreply.github.com>
---
 ekp.el | 22 +++++++++++++++++++---
 1 file changed, 19 insertions(+), 3 deletions(-)

diff --git a/ekp.el b/ekp.el
index 4a9faf0..1586b37 100644
--- a/ekp.el
+++ b/ekp.el
@@ -175,6 +175,18 @@ Each takes ideal, stretch (+), and shrink (-) values."
   "[A-Za-z'\\-\u00C0-\u00D6\u00D8-\u00F6\u00F8-\u00FF\u0100-\u024F\u1E00-\u1EFF]"
   "Regexp matching Latin characters including accented forms.")
 
+(defun ekp--split-hyphenated-word (word)
+  "Split WORD at existing hyphens into parts with hyphens attached.
+E.g., \"help-echo\" -> (\"help-\" \"echo\").
+Does NOT apply dictionary hyphenation - just uses existing hyphens."
+  (let* ((segments (split-string word "-" t))  ; t = omit empty/null strings
+         (num-segs (length segments)))
+    (cl-loop for seg in segments
+             for i from 0
+             collect (if (< i (1- num-segs))
+                         (concat seg "-")
+                       seg))))
+
 (defun ekp--split-with-hyphen (string)
   "Split STRING into boxes with hyphenation points marked.
 Returns (boxes-vector . hyphen-positions-vector)."
@@ -185,12 +197,16 @@ Returns (boxes-vector . hyphen-positions-vector)."
            (format "^\\([[{<„‚¿¡*@\"']*\\)\\(%s+\\)\\([]}>.,*?\"']*\\)$"
                    ekp--latin-regexp)
            box)
-          ;; Latin word: apply hyphenation
+          ;; Latin word (possibly with embedded hyphens)
           (let* ((left (match-string 1 box))
                  (word (match-string 2 box))
                  (right (match-string 3 box))
-                 (parts (ekp-hyphen-boxes
-                         (ekp-hyphen-create ekp-latin-lang) word))
+                 ;; If word contains hyphens, split at those points only (no further hyphenation)
+                 ;; Otherwise, apply dictionary hyphenation
+                 (parts (if (string-match-p "-" word)
+                            (ekp--split-hyphenated-word word)
+                          (ekp-hyphen-boxes
+                           (ekp-hyphen-create ekp-latin-lang) word)))
                  (n (length parts)))
             (when left (setcar parts (concat left (car parts))))
             (when right (setcar (last parts)