@@ -524,7 +524,7 @@ accentTable =
524524 ('u', [('`', 249), ('\'', 250), ('^', 251), ('"', 252)]) ]
525525
526526specialAccentedChar :: GenParser Char st Inline
527−specialAccentedChar = choice [ ccedil, aring, iuml, szlig, aelig,
527+specialAccentedChar = choice [ ccedil, aring, iuml, szlig, aelig, lslash,
528528 oslash, pound, euro, copyright, sect ]
529529
530530ccedil :: GenParser Char st Inline
@@ -555,6 +555,13 @@ oslash = try $ do
555555 let num = if letter' == 'o' then 248 else 216
556556 return $ Str [chr num]
557557
558+lslash :: GenParser Char st Inline
559+lslash = try $ do
560+ cmd <- oneOfStrings ["{\\L}","{\\l}","\\L ","\\l "]
561+ return $ if 'l' `elem` cmd
562+ then Str "\x142"
563+ else Str "\x141"
564+
558565aelig :: GenParser Char st Inline
559566aelig = try $ do
560567 char '\\'