hyperref update (2009-11-20 6.79g)

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

1 files changed, 49 insertions, 2 deletions

diff --git a/Master/texmf-dist/tex/latex/hyperref/hyperref.sty b/Master/texmf-dist/tex/latex/hyperref/hyperref.sty
index 8f900162722..ddf19907831 100644
--- a/Master/texmf-dist/tex/latex/hyperref/hyperref.sty
+++ b/Master/texmf-dist/tex/latex/hyperref/hyperref.sty
@@ -25,7 +25,7 @@
 %%
 \NeedsTeXFormat{LaTeX2e}
 \ProvidesPackage{hyperref}
-  [2009/11/15 v6.79f
+  [2009/11/20 v6.79g
   Hypertext links for LaTeX]
 \begingroup
   \@makeother\`%
@@ -1403,7 +1403,7 @@
           \%%
           |expandafter|HyPsd@DoEscape
         |else
-          \000#1%
+          |HyPsd@Char{#1}%
           |expandafter|HyPsd@DoConvert
         |fi
       }%
@@ -1437,6 +1437,53 @@
   \xdef#4{#4#1#2}%
   \HyPsd@@ConvertToUnicode#3\END#4%
 }
+\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
 \begingroup\expandafter\expandafter\expandafter\endgroup
 \expandafter\ifx\csname numexpr\endcsname\relax
   \let\HyPsd@UTFviii\relax