@@ -397,9 +397,9 @@ blockToOpenDocument o bs
397 captionDoc <- if null c
397 captionDoc <- if null c
398 then return empty
398 then return empty
399 else inlinesToOpenDocument o c >>=
399 else inlinesToOpenDocument o c >>=
400− if True -- temporary: see #5474
400+ if isEnabled Ext_native_numbering o
401+ then numberedTableCaption
401− then unNumberedCaption "TableCaption"
402+ else unNumberedCaption "TableCaption"
402− else numberedTableCaption
403 th <- if all null h
403 th <- if all null h
404 then return empty
404 then return empty
405 else colHeadsToOpenDocument o (map fst paraHStyles) h
405 else colHeadsToOpenDocument o (map fst paraHStyles) h
@@ -412,9 +412,9 @@ blockToOpenDocument o bs
412 | otherwise = do
412 | otherwise = do
413 imageDoc <- withParagraphStyle o "FigureWithCaption" [Para [Image attr caption (source,title)]]
413 imageDoc <- withParagraphStyle o "FigureWithCaption" [Para [Image attr caption (source,title)]]
414 captionDoc <- inlinesToOpenDocument o caption >>=
414 captionDoc <- inlinesToOpenDocument o caption >>=
415− if True -- temporary: see #5474
415+ if isEnabled Ext_native_numbering o
416+ then numberedFigureCaption
416− then unNumberedCaption "FigureCaption"
417+ else unNumberedCaption "FigureCaption"
417− else numberedFigureCaption
418 return $ imageDoc $$ captionDoc
418 return $ imageDoc $$ captionDoc
@@ -423,7 +423,7 @@ numberedTableCaption caption = do
423 id' <- gets stTableCaptionId
423 id' <- gets stTableCaptionId
424 modify (\st -> st{ stTableCaptionId = id' + 1 })
424 modify (\st -> st{ stTableCaptionId = id' + 1 })
425 capterm <- translateTerm Term.Table
425 capterm <- translateTerm Term.Table
426− return $ numberedCaption "Table" capterm "Table" id' caption
426+ return $ numberedCaption "TableCaption" capterm "Table" id' caption
428numberedFigureCaption :: PandocMonad m => Doc Text -> OD m (Doc Text)
428numberedFigureCaption :: PandocMonad m => Doc Text -> OD m (Doc Text)
429numberedFigureCaption caption = do
429numberedFigureCaption caption = do