@@ -770,9 +770,10 @@ blockToHtml opts (Div attr@(ident, classes, kvs') bs) = do
770770 lookup "entry-spacing" kvs' >>=
771771 safeRead }
772772 let isCslBibEntry = "csl-entry" `elem` classes
773− let kvs = [(k,v) | (k,v) <- kvs', k /= "width"] ++
774− [("style", "width:" <> w <> ";") | "column" `elem` classes,
775− ("width", w) <- kvs'] ++
773+ let kvs = [(k,v) | (k,v) <- kvs'
774+ , k /= "width" || "column" `notElem` classes] ++
775+ [("style", "width:" <> w <> ";") | "column" `elem` classes
776+ , ("width", w) <- kvs'] ++
776777 [("role", "doc-bibliography") | isCslBibBody && html5] ++
777778 [("role", "doc-biblioentry") | isCslBibEntry && html5]
778779 let speakerNotes = "notes" `elem` classes