hyperref update (2009-11-20 6.79g)

git-svn-id: svn://tug.org/texlive/trunk@16113 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 54 insertions, 3 deletions

diff --git a/Master/texmf-dist/source/latex/hyperref/hyperref.dtx b/Master/texmf-dist/source/latex/hyperref/hyperref.dtx
index 17e56f4ca70..6dc5f86a314 100644
--- a/Master/texmf-dist/source/latex/hyperref/hyperref.dtx
+++ b/Master/texmf-dist/source/latex/hyperref/hyperref.dtx
@@ -38,7 +38,7 @@
 %<puenc>\ProvidesFile{puenc.def}
 %<puvnenc>\ProvidesFile{puvnenc.def}
 %<puarenc>\ProvidesFile{puarenc.def}
-%<!none>  [2009/11/15 v6.79f
+%<!none>  [2009/11/20 v6.79g
 %<package>  Hypertext links for LaTeX]
 %<nohyperref>  Dummy hyperref (SR)]
 %<driver>  Hyperref documentation driver file]
@@ -114,7 +114,7 @@
 \end{document}
 %</driver>
 % \fi
-% \CheckSum{24810}
+% \CheckSum{24885}
 %
 % \MakeShortVerb{|}
 % \StopEventually{}
@@ -3231,7 +3231,7 @@
           \%%
           |expandafter|HyPsd@DoEscape
         |else
-          \000#1%
+          |HyPsd@Char{#1}%
           |expandafter|HyPsd@DoConvert
         |fi
       }%
@@ -3286,6 +3286,57 @@
 }
 %    \end{macrocode}
 %    \end{macro}
+%    \begin{macro}{\HyPsd@Char}
+%    \begin{macrocode}
+\begingroup
+  \catcode0=9 %
+  \catcode`\^=7 %
+  \catcode`\^^^=12 %
+  \def\x{^^^^0000}%
+\expandafter\endgroup
+\ifx\x\@empty
+  \def\HyPsd@Char#1{%
+    \ifnum`#1<128 %
+      \@backslashchar 000#1%
+    \else
+      \ifnum`#1<65536 %
+        \expandafter\HyPsd@CharTwoByte\number`#1!%
+      \else
+        \expandafter\expandafter\expandafter\HyPsd@CharSurrogate
+        \intcalcSub{`#1}{65536}!%
+      \fi
+    \fi
+  }%
+  \def\HyPsd@CharTwoByte#1!{%
+    \expandafter\expandafter\expandafter\HyPsd@CharOctByte
+    \IntCalcDiv#1!256!!%
+    \expandafter\expandafter\expandafter\HyPsd@CharOctByte
+    \IntCalcMod#1!256!!%
+  }%
+  \def\HyPsd@CharOctByte#1!{%
+    \@backslashchar
+    \IntCalcDiv#1!64!%
+    \intcalcDiv{\IntCalcMod#1!64!}{8}%
+    \IntCalcMod#1!8!%
+  }%
+  \def\HyPsd@CharSurrogate#1!{%
+    \@backslashchar 33%
+    \IntCalcDiv#1!262144!%
+    \expandafter\expandafter\expandafter\HyPsd@CharOctByte
+    \intcalcDiv{\IntCalcMod#1!262144!}{1024}!%
+    \@backslashchar 33%
+    \expandafter\expandafter\expandafter\IntCalcAdd
+    \intcalcDiv{\IntCalcMod#1!1024!}{256}!4!%
+    \expandafter\expandafter\expandafter\HyPsd@CharOctByte
+    \IntCalcMod#1!256!!%
+  }%
+\else
+  \def\HyPsd@Char#1{%
+    \@backslashchar 000#1%
+  }%
+\fi
+%    \end{macrocode}
+%    \end{macro}
 %
 % \subsubsection{Support for UTF-8 input encoding}
 %