Revert previous fixes for issue: Oldes/Rebol-issues#2683

Oldes · Oldes · commit cc1c08861002 · 2026-02-14T00:31:37.000+01:00
It causes more problems than the original issue. It needs better solution. Also for cases like: ``` >> append/part "" 1 10 == {1a"^@A"^@xb"} >> append/part "" 1.1.1 10 == {1.1.1@a"^^@} ```
diff --git a/src/core/f-modify.c b/src/core/f-modify.c
@@ -143,7 +143,7 @@
 		}
 		else if (IS_CHAR(src_val)) {
 			src_ser = BUF_SCAN;
-			src_ser->tail = dst_len = Encode_UTF8_Char(BIN_HEAD(src_ser), VAL_CHAR(src_val));
+			src_ser->tail = Encode_UTF8_Char(BIN_HEAD(src_ser), VAL_CHAR(src_val));
 		}
 		else if (ANY_STR(src_val)) {
 			if (action != A_CHANGE && GET_FLAG(flags, AN_PART)) {
@@ -167,7 +167,6 @@
 		SERIES_TAIL(src_ser) = Encode_UTF8_Char(STR_HEAD(src_ser), VAL_CHAR(src_val));
 		TERM_SERIES(src_ser);
 		if (SERIES_TAIL(src_ser) > 1) UTF8_SERIES(src_ser);
-		dst_len = SERIES_TAIL(src_ser);
 	}
 	else if (IS_BLOCK(src_val)) {
 		src_ser = Form_Tight_Block(src_val);

Original file line number	Diff line number	Diff line change
`@@ -143,7 +143,7 @@`
`143`	`143`	`}`
`144`	`144`	`else if (IS_CHAR(src_val)) {`
`145`	`145`	`src_ser = BUF_SCAN;`
`146`		`- src_ser->tail = dst_len = Encode_UTF8_Char(BIN_HEAD(src_ser), VAL_CHAR(src_val));`
	`146`	`+ src_ser->tail = Encode_UTF8_Char(BIN_HEAD(src_ser), VAL_CHAR(src_val));`
`147`	`147`	`}`
`148`	`148`	`else if (ANY_STR(src_val)) {`
`149`	`149`	`if (action != A_CHANGE && GET_FLAG(flags, AN_PART)) {`
`@@ -167,7 +167,6 @@`
`167`	`167`	`SERIES_TAIL(src_ser) = Encode_UTF8_Char(STR_HEAD(src_ser), VAL_CHAR(src_val));`
`168`	`168`	`TERM_SERIES(src_ser);`
`169`	`169`	`if (SERIES_TAIL(src_ser) > 1) UTF8_SERIES(src_ser);`
`170`		`- dst_len = SERIES_TAIL(src_ser);`
`171`	`170`	`}`
`172`	`171`	`else if (IS_BLOCK(src_val)) {`
`173`	`172`	`src_ser = Form_Tight_Block(src_val);`