diff options
author | Takuji Tanaka <ttk@t-lab.opal.ne.jp> | 2022-05-17 13:08:34 +0000 |
---|---|---|
committer | Takuji Tanaka <ttk@t-lab.opal.ne.jp> | 2022-05-17 13:08:34 +0000 |
commit | 78593154cfb96b1326e769d080a178770a12817c (patch) | |
tree | c1ca76d7e9574c0c57586e56ff7ce1569aeecfb3 /Build/source/texk | |
parent | f324c72f61448145ec4df5f078dbd66ea55f148d (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/ChangeLog | 2 | ||||
-rw-r--r-- | Build/source/texk/bibtex-x/bibtex-4.c | 2 |
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 |