LaTeX writer: avoid extra space before \CSLRightInline.

Closes #7932.
2026-08-25 17:56:32 +00:00 · 2022-02-22 13:19:16 -08:00
parent 1abf2bcd5f
commit aa90302284
1 changed files with 7 additions and 6 deletions
@@ -741,12 +741,13 @@ inlineToLaTeX (Span (id',classes,kvs) ils) = do
  let cmds = mapMaybe classToCmd classes ++ mapMaybe kvToCmd kvs ++ langCmds
  contents <- inlineListToLaTeX ils
  return $
-    (case classes of
-              ["csl-block"] -> (cr <>)
-              ["csl-left-margin"] -> (cr <>)
-              ["csl-right-inline"] -> (cr <>)
-              ["csl-indent"] -> (cr <>)
-              _ -> id) $
+    (if "csl-right-inline" `elem` classes
+        then ("%" <>) -- see #7932
+        else id) $
+    (if any (`elem` classes)
+            ["csl-block","csl-left-margin","csl-right-inline","csl-indent"]
+        then (cr <>)
+        else id) $
    (if T.null id'
        then empty
        else "\\protect" <> linkAnchor) <>