[efrench] efrench/efrenchsources: [81] Pour la version 6, 101 avec dux retouches mineures

[subversion@xxxxxxxxxxxxx]

Revision: 81
Author:   rayj
Date:     2019-05-31 14:54:44 +0200 (Fri, 31 May 2019)
Log Message:
-----------
Pour la version 6,101 avec dux retouches mineures

Modified Paths:
--------------
    trunk/doc/french_doc.txt
    trunk/inputs/french/french.sty

Modified: trunk/doc/french_doc.txt
===================================================================
--- trunk/doc/french_doc.txt	2019-03-10 15:49:19 UTC (rev 80)
+++ trunk/doc/french_doc.txt	2019-05-31 12:54:44 UTC (rev 81)
@@ -3255,7 +3255,7 @@
 % Necessary :
 % Add a thin space before punctuation ; : and ! in place of a space
 \def\intercharpunct{%
-    \lccode\lccode8217=8217
+%    \lccode\lccode8217=8217
       \XeTeXinterchartokenstate=1
       \XeTeXcharclass `\! \french@punctthin
       \XeTeXcharclass `\? \french@punctthin
@@ -3267,7 +3267,7 @@
       \XeTeXinterchartoks 4095 \french@punctthick = {\efr@unskip\nobreakspace}%
     }
 \def\nointercharpunct{%
-    \lccode8217=\z@
+%    \lccode8217=\z@
     \XeTeXcharclass `\! \z@
     \XeTeXcharclass `\? \z@
     \XeTeXcharclass `\; \z@
@@ -3481,6 +3481,7 @@
        \ifFLA\ifEPG\else\def\@qqguill{\@oguills}\@staring\fi\fi\fi%
 %%% \protect\@CGfalse%
        \global\let\ifCG\iffalse%
+%       \ifUSP\kern+0.13em\penalty\@M\ignorespaces%   - >> V6,1 BG
        \ifUSP\kern+0.13em\penalty\@M\ignorespaces%
              \else\kern-0.19em\relax\penalty\@M\fi}% -likely as \ignorespaces\fi
 \def\@AG{\ifAG\let\@LP\@RP\let\@gotl\@gotr%
@@ -3491,6 +3492,7 @@
      \@ifundefined{ly}{\@og}%
           {\leavevmode\ifECM\hbox{{\ifGIAF\else\@gfnt\fi%
                                    \ifx\@gotl\undefined\char\rq\@LP%
+%                                    \else\@gotl\fi\kern+0.20em}}%   - >> V6,1 BG
                                     \else\@gotl\fi\kern+0.20em}}%
                       \else\hbox{{\ly\@LP\kern-0.20em\@LP\kern+0.20em}}\fi%
            \nobreak}}{}\egroup}%
@@ -3532,9 +3534,8 @@
                              \space% -better than \kern
                              \penalty\@M%
                  \fi%
-%                 \kern-0.19em%       was here by BG
+                 \kern-0.19em%
           \fi%
-      \kern-0.19em%                   now here by RJ       
       \xdef\@tempd{\@currenvir}\def\@tempe{guillemets}%
      \ifx\@tempd\@tempe%
                \@CGroup\@fguills% -end group if any and put closing guillemets

Modified: trunk/inputs/french/french.sty
===================================================================
--- trunk/inputs/french/french.sty	2019-03-10 15:49:19 UTC (rev 80)
+++ trunk/inputs/french/french.sty	2019-05-31 12:54:44 UTC (rev 81)
@@ -2331,7 +2331,7 @@
 % > for XeLaTex 						******
 % de gloss-french
 \def\intercharpunct{%
-    \lccode\lccode8217=8217
+%    \lccode\lccode8217=8217
       \XeTeXinterchartokenstate=1
       \XeTeXcharclass `\! \french@punctthin
       \XeTeXcharclass `\? \french@punctthin
@@ -2343,7 +2343,7 @@
       \XeTeXinterchartoks 4095 \french@punctthick = {\efr@unskip\nobreakspace}%
     }
 \def\nointercharpunct{%
-    \lccode8217=\z@
+%    \lccode8217=\z@
     \XeTeXcharclass `\! \z@
     \XeTeXcharclass `\? \z@
     \XeTeXcharclass `\; \z@