[74_1] fix underline extending bug

## What work have you done in the current Pull Request? - [x] port texmacs/texmacs@5b511eb to mogan Co-authored-by: Joris van der Hoeven <[email protected]>
XmacsLabs · Dec 9, 2023 · 9aaec4c · 9aaec4c
1 parent 8299e82
commit 9aaec4c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Typeset/Concat/concat_post.cpp b/src/Typeset/Concat/concat_post.cpp
@@ -184,7 +184,9 @@ concater_rep::handle_scripts (int start, int end) {
         (a[i]->type == GLUE_LSUBS_ITEM) ||
         (a[i]->type == RSUB_ITEM) ||
         (a[i]->type == RSUP_ITEM) ||
-        (a[i]->type == GLUE_RSUBS_ITEM)) { i++; continue; }
+        (a[i]->type == GLUE_RSUBS_ITEM) ||
+	(a[i]->type == CONTROL_ITEM && L(a[i]->t) == DATOMS)) {
+      i++; continue; }
 
     path sip;
     int l= prec (i);