summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/generic/babel-greek/babel-greek.dtx
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/generic/babel-greek/babel-greek.dtx')
-rw-r--r--Master/texmf-dist/source/generic/babel-greek/babel-greek.dtx29
1 files changed, 17 insertions, 12 deletions
diff --git a/Master/texmf-dist/source/generic/babel-greek/babel-greek.dtx b/Master/texmf-dist/source/generic/babel-greek/babel-greek.dtx
index f4acdae4dba..8352d9ecbe1 100644
--- a/Master/texmf-dist/source/generic/babel-greek/babel-greek.dtx
+++ b/Master/texmf-dist/source/generic/babel-greek/babel-greek.dtx
@@ -26,7 +26,7 @@
% and covered by LPPL is defined by the unpacking script (babel-greek.ins)
% which is part of the package.
% \fi
-% \CheckSum{1553}
+% \CheckSum{1557}
%
% \iffalse
% Tell the \LaTeX\ system who we are and write an entry on the
@@ -37,7 +37,7 @@
%<code>\ProvidesLanguage{greek}
%\fi
%\ProvidesFile{babel-greek.dtx}
- [2015/09/04 v1.9d Greek support for the babel system]
+ [2015/09/04 v1.9e Greek support for the babel system]
%\iffalse
%% File `babel-greek.dtx'
%% Greek language Definition File
@@ -101,22 +101,24 @@
% \changes{greek-1.7a}{2013/09/13}{bugfix: remove spurious ``fi''.}
% \changes{greek-1.7b}{2013/10/01}{bugfix: correct upcasing of babel strings
% with Xe/LuaTeX.}
-% \changes{greek-1.8}{2013/11/27}{Rename to ``babel-greek.dtx''.
+% \changes{babel-greek-1.8}{2013/11/27}{Rename to ``babel-greek.dtx''.
% Restore compatibility with Xe/LuaTeX in 8-bit and Unicode mode.
% Load ``euenc.def'' if EU1 or EU2 font encoding is detected.
% New TextCommands ``greekscript'' and ``ensuregreek''.}
-% \changes{greek-1.8a}{2013/12/03}{Set `encodingdefault' in `greekscript'
+% \changes{babel-greek-1.8a}{2013/12/03}{Set `encodingdefault' in `greekscript'
% to fix Greek in footnotes etc. with document language Greek.}
-% \changes{greek-1.9}{2014/07/20}{Added attribute for ancient Greek.
+% \changes{babel-greek-1.9}{2014/07/20}{Added attribute for ancient Greek.
% Load correct hyphenation patterns. Patch by Claudio Beccari.}
-% \changes{greek-1.9b}{2014/09/18}{Remove spurious whitespace from
+% \changes{babel-greek-1.9b}{2014/09/18}{Remove spurious whitespace from
% `extrasgreek' definition (report Eike Schmidt).
% Use named macros instead of non-standard short accent macros for
% psili and dasia.}
-% \changes{greek-1.9c}{2014/10/21}{Fix dummy hyphenation language names
+% \changes{babel-greek-1.9c}{2014/10/21}{Fix dummy hyphenation language names
% (report/patch Ulrike Fischer).}
-% \changes{greek-1.9d}{2015/07/06}{uc-/lccode corrections from xgreek are now
+% \changes{babel-greek-1.9d}{2015/07/06}{uc-/lccode corrections from xgreek are now
% in greek-euenc.def (the polyglossia version has bugs).}
+% \changes{babel-greek-1.9e}{2015/11/27}{Fix bug in lccode-setting loop
+% (patch by Enrico Gregorio).}
%
% \title{Babel support for the Greek language}
% \author{Apostolos Syropoulos, Günter Milde}
@@ -1144,7 +1146,8 @@
% the LGR font encoding (which is the same in all language variants).
% This means that multi-accented characters are regarded parts of a word
% (and not non-word characters) also in monotonic spelling.
-%
+% \changes{babel-greek-1.9e}{2015/11/27}{Fix bug in lccode-setting loop
+% (patch by Enrico Gregorio).}
% \begin{macrocode}
\addto\extrasgreek{%
\babel@savevariable{\lccode`v}\lccode`v=`v%
@@ -1153,9 +1156,11 @@
% ``high bit characters'': set in a loop and correct exceptions
\@tempcnta=128%
\@whilenum\@tempcnta<253\do{%
- \babel@savevariable{\lccode\@tempcnta}\lccode\@tempcnta=\@tempcnta
+ \expandafter\babel@savevariable\expandafter{%
+ \expandafter\lccode\the\@tempcnta}%
+ \lccode\@tempcnta=\@tempcnta
\advance\@tempcnta\@ne
- }%
+ }%
% Fix non-word characters:
\lccode151=0%
\lccode155=0%
@@ -1165,7 +1170,7 @@
\lccode195=147% GREEK LETTER DIGAMMA
\lccode219=240% GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
\lccode223=244% GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
- }
+ }
\addto\extraspolutonikogreek{%
% \l@greek=\bbl@polygreek