From c7c208121746eea13d8432bde200e7b9aa3debaf Mon Sep 17 00:00:00 2001 From: Nicolas Berthier Date: Tue, 12 Mar 2024 12:48:40 +0100 Subject: [PATCH] Fix maximum line length for X/Open free-form source-format In GnuCOBOL, "X/Open" actually denotes "X/Open free-form", not traditional fixed-form X/Open. --- src/lsp/cobol_preproc/src_format.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/lsp/cobol_preproc/src_format.ml b/src/lsp/cobol_preproc/src_format.ml index 0a7819bae..79be86904 100644 --- a/src/lsp/cobol_preproc/src_format.ml +++ b/src/lsp/cobol_preproc/src_format.ml @@ -27,7 +27,7 @@ and fixed_paging_params = let fixed_paging = { cut_at_col = 72; alphanum_padding = Some ' ' } let variable_paging = { fixed_paging with cut_at_col = 250 } let xcard_paging = { fixed_paging with cut_at_col = 255 } -let xopen_paging = { fixed_paging with cut_at_col = 80 } +let xopen_paging = xcard_paging let crt_paging = { fixed_paging with cut_at_col = 320 } let terminal_paging = crt_paging let cobolx_paging = { cut_at_col = 255; alphanum_padding = None }