[7056] XeTeX @email support

[Masamichi Hosoda]

Revision: 7056
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7056
Author:   trueroad
Date:     2016-03-23 12:04:10 +0000 (Wed, 23 Mar 2016)
Log Message:
-----------
XeTeX @email support

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/doc/texinfo.tex

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2016-03-23 11:50:48 UTC (rev 7055)
+++ trunk/ChangeLog     2016-03-23 12:04:10 UTC (rev 7056)
@@ -1,5 +1,10 @@
 2016-03-23  Masamichi Hosoda  <address@hidden>
 
+       * doc/texinfo.tex (\email, \doemail): New macro.
+       Add XeTeX @email support.
+
+2016-03-23  Masamichi Hosoda  <address@hidden>
+
        * doc/texinfo.tex (\pdfgettoks, \pdfaddtokens, \adn, \poptoks, 
        \maketoks, \makelink, \pdflink, \done): New Macro.
        Add XeTeX PDF table of contents page number link support.

Modified: trunk/doc/texinfo.tex
===================================================================
--- trunk/doc/texinfo.tex       2016-03-23 11:50:48 UTC (rev 7055)
+++ trunk/doc/texinfo.tex       2016-03-23 12:04:10 UTC (rev 7056)
@@ -3,7 +3,7 @@
 % Load plain if necessary, i.e., if running under initex.
 \expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
 %
-\def\texinfoversion{2016-03-23.11}
+\def\texinfoversion{2016-03-23.12}
 %
 % Copyright 1985, 1986, 1988, 1990, 1991, 1992, 1993, 1994, 1995,
 % 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
@@ -2993,7 +2993,18 @@
     \endlink
   \endgroup}
 \else
-  \let\email=\uref
+  \ifx\XeTeXrevision\thisisundefined
+    \let\email=\uref
+  \else
+    \def\email#1{\doemail#1,,\finish}
+    \def\doemail#1,#2,#3\finish{\begingroup
+      \unsepspaces
+      \pdfurl{mailto:#1}%
+      \setbox0 = \hbox{\ignorespaces #2}%
+      \ifdim\wd0>0pt\unhbox0\else\code{#1}\fi
+      \endlink
+    \endgroup}
+  \fi
 \fi
 
 % @kbdinputstyle -- arg is `distinct' (@kbd uses slanted tty font always),