summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/xetex/xetexko/xetexko-hanging.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-12-06 22:14:43 +0000
committerKarl Berry <karl@freefriends.org>2013-12-06 22:14:43 +0000
commit8c3bc9ab96e351e1189f16dacc40c2dcc678b70a (patch)
tree8f2ecb70b7a51c2f696da5060963dd40638bf869 /Master/texmf-dist/tex/xetex/xetexko/xetexko-hanging.sty
parent7e784ae2dff9b04aa5830bc1c60753ad9beee4b9 (diff)
xetexko (6dec13)
git-svn-id: svn://tug.org/texlive/trunk@32344 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/xetex/xetexko/xetexko-hanging.sty')
-rw-r--r--Master/texmf-dist/tex/xetex/xetexko/xetexko-hanging.sty18
1 files changed, 11 insertions, 7 deletions
diff --git a/Master/texmf-dist/tex/xetex/xetexko/xetexko-hanging.sty b/Master/texmf-dist/tex/xetex/xetexko/xetexko-hanging.sty
index bb7338bdd04..0fa425f5264 100644
--- a/Master/texmf-dist/tex/xetex/xetexko/xetexko-hanging.sty
+++ b/Master/texmf-dist/tex/xetex/xetexko/xetexko-hanging.sty
@@ -13,7 +13,7 @@
\begingroup\expandafter\expandafter\expandafter\endgroup
\expandafter\ifx\csname ProvidesPackage\endcsname\relax\else
\ProvidesPackage{xetexko-hanging}
- [2013/03/27 v2.0 Hanging punctuations for XeTeX-ko]
+ [2013/11/26 v2.2 Hanging punctuations for XeTeX-ko]
\fi
\chardef\catcodeofATcharacter\catcode`@
@@ -47,7 +47,9 @@
\def\strip@pt{\expandafter\rem@pt\the}
\fi
-\def\hangingpunctuation{%
+\ifcsname AtBeginDocument\endcsname\else \def\AtBeginDocument#1{#1} \fi
+
+\AtBeginDocument{
\begingroup
\setbox\z@\hbox{가.}\setbox\tw@\hbox{가}%
\xdef\temp@a
@@ -60,19 +62,19 @@
\edef\xetexko@quotewidth {\temp@b em}%
\def\XKperiodboxstop{%
\XK@orig@periodboxstop
- \ifnum\XKcurrentfont>\z@
+ %\ifnum\XKcurrentfont>\z@
\count@\spacefactor
\XKH@post@hang\xetexko@periodwidth
\spacefactor\count@
- \fi
+ %\fi
}%
\def\XKcommaboxstop{%
\XK@orig@commaboxstop
- \ifnum\XKcurrentfont>\z@
+ %\ifnum\XKcurrentfont>\z@
\count@\spacefactor
\XKH@post@hang\xetexko@periodwidth
\spacefactor\count@
- \fi
+ %\fi
}%
\def\XKclosingquotestop{%
\XK@orig@closingquotestop \XKH@post@hang\xetexko@quotewidth
@@ -117,7 +119,9 @@
\vrule width-#1 height\z@ depth\z@
\nobreak\hskip\z@\relax
}
-\let\hangingpunctuations\hangingpunctuation
+
+\let\hangingpunctuation\relax
+\let\hangingpunctuations\relax
\catcode`\@\catcodeofATcharacter