From 95375b444b5671e7a939635fdf5d1a0e4ef16813 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 26 Oct 2014 21:11:59 +0000 Subject: babel-french (26oct14) git-svn-id: svn://tug.org/texlive/trunk@35444 c570f23f-e606-0410-a88d-b1316a301751 --- .../tex/generic/babel-french/frenchb.ldf | 2 +- .../tex/generic/babel-french/frenchb.lua | 23 ++++++++++++---------- 2 files changed, 14 insertions(+), 11 deletions(-) (limited to 'Master/texmf-dist/tex') diff --git a/Master/texmf-dist/tex/generic/babel-french/frenchb.ldf b/Master/texmf-dist/tex/generic/babel-french/frenchb.ldf index 210fea1533b..10683a42650 100644 --- a/Master/texmf-dist/tex/generic/babel-french/frenchb.ldf +++ b/Master/texmf-dist/tex/generic/babel-french/frenchb.ldf @@ -33,7 +33,7 @@ %% extension .ins) which are part of the distribution. %% \ProvidesLanguage{frenchb} - [2014/09/16 v3.1b French support from the babel system] + [2014/10/25 v3.1c French support from the babel system] %% %% File `frenchb.ldf' %% Babel package for LaTeX version 2e diff --git a/Master/texmf-dist/tex/generic/babel-french/frenchb.lua b/Master/texmf-dist/tex/generic/babel-french/frenchb.lua index d117f60a2a0..8fea2ed965b 100644 --- a/Master/texmf-dist/tex/generic/babel-french/frenchb.lua +++ b/Master/texmf-dist/tex/generic/babel-french/frenchb.lua @@ -1,5 +1,5 @@ -- --- File `frenchb.lua' generated from frenchb.dtx [2014/09/16 v3.1b] +-- File `frenchb.lua' generated from frenchb.dtx [2014/10/25 v3.1c] -- -- Copyright (C) 2014 Daniel Flipo -- License LPPL: see frenchb.dtx. @@ -99,22 +99,25 @@ local function french_punctuation (head) glue_spec = prev.spec glue_wd = glue_spec.width end - glue = glue and glue_wd > 0 - if (FB_punct_thin[char] or FB_punct_thick[char]) then + local realglue = glue and glue_wd > 1 + if FB_punct_thin[char] or FB_punct_thick[char] then local SBDP = has_attribute(item, addDPspace) + local auto = SBDP and SBDP > 0 + if auto then + if (prev_char and FB_punct_null[prev_char]) or + (glue and glue_wd <= 1) or + (prev_id == 0 and prev_subtype == 3) then + auto = false + end + end local fbglue if FB_punct_thick[char] then fbglue = new_glue_scaled(fid,colnwd,colnst,colnsh) else fbglue = new_glue_scaled(fid,thinwd,thinst,thinsh) end - local auto = - SBDP and SBDP > 0 and - ((prev_char and not FB_punct_null[prev_char]) or - (not prev_char and (prev_id ~= 0 or prev_subtype ~= 3)) - ) - if glue or auto then - if glue then + if realglue or auto then + if realglue then head = remove_node(head,prev,true) end insert_node_before(head, item, copy_node(nobreak)) -- cgit v1.2.3