summaryrefslogtreecommitdiff
path: root/Build/source/texk
diff options
context:
space:
mode:
authorTakuji Tanaka <ttk@t-lab.opal.ne.jp>2022-05-17 13:08:34 +0000
committerTakuji Tanaka <ttk@t-lab.opal.ne.jp>2022-05-17 13:08:34 +0000
commit78593154cfb96b1326e769d080a178770a12817c (patch)
treec1ca76d7e9574c0c57586e56ff7ce1569aeecfb3 /Build/source/texk
parentf324c72f61448145ec4df5f078dbd66ea55f148d (diff)
bibtex-x: fix a bug on text.length$
git-svn-id: svn://tug.org/texlive/trunk@63318 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk')
-rw-r--r--Build/source/texk/bibtex-x/ChangeLog2
-rw-r--r--Build/source/texk/bibtex-x/bibtex-4.c2
2 files changed, 2 insertions, 2 deletions
diff --git a/Build/source/texk/bibtex-x/ChangeLog b/Build/source/texk/bibtex-x/ChangeLog
index 80058592123..03d93d838a7 100644
--- a/Build/source/texk/bibtex-x/ChangeLog
+++ b/Build/source/texk/bibtex-x/ChangeLog
@@ -3,7 +3,7 @@
* version.h:
Bump version to 4.00 (17 may 2022).
* bibtex-4.c, bibtex.h:
- Fix a bug of text.prefix$ in bibtexu.
+ Fix a bug of text.prefix$ and text.length$ in bibtexu.
* tests/testsubstr[au].bib, substr[au].bbl, txtprfx[au].bbl:
Update tests.
diff --git a/Build/source/texk/bibtex-x/bibtex-4.c b/Build/source/texk/bibtex-x/bibtex-4.c
index cd2b5811cc5..9663f5a6b8c 100644
--- a/Build/source/texk/bibtex-x/bibtex-4.c
+++ b/Build/source/texk/bibtex-x/bibtex-4.c
@@ -2266,7 +2266,7 @@ BEGIN
/*
The length of character of UTF-8 is different. 23/sep/2009
*/
- DO_UTF8(str_pool[sp_ptr], , sp_ptr++, sp_ptr += 2, sp_ptr += 3);
+ DO_UTF8(str_pool[sp_ptr-1], , sp_ptr++, sp_ptr += 2, sp_ptr += 3);
#endif
INCR (num_text_chars);
END