Blind but most likely correct fix missing \iclip support in cleantags.lua. Updates #1044.

Originally committed to SVN as r3772.
This commit is contained in:
Niels Martin Hansen 2009-11-13 22:13:58 +00:00
parent ab857d115c
commit d6b0cdcedf

View file

@ -23,8 +23,8 @@ OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
]] ]]
cleantags_version = "1.300" cleantags_version = "1.301"
cleantags_modified = "27 February 2009" cleantags_modified = "13 November 2009"
ktag = "\\[kK][fo]?%d+" ktag = "\\[kK][fo]?%d+"
@ -98,7 +98,7 @@ function cleantags(text)
--[[ Remove any spaces within parenteses within override blocks except for \clip tags ]] --[[ Remove any spaces within parenteses within override blocks except for \clip tags ]]
local comb = function(a,b,c,d,e) local comb = function(a,b,c,d,e)
if c ~= "\\clip" or d:sub(-1):find("[,%({]") or e:sub(1,1):find("[,%)}]") then return a..b..d..e if c ~= "\\i?clip" or d:sub(-1):find("[,%({]") or e:sub(1,1):find("[,%)}]") then return a..b..d..e
else return a..b..d..string.char(2)..e end else return a..b..d..string.char(2)..e end
end end
repeat repeat