From 5ccaa5a153d3871ea17c4d75119fa505e637c681 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 8 Jan 2017 13:53:33 -0800 Subject: [PATCH] Add dir-local variables for pagination and tweak one instance. --- src/.dir-locals.el | 5 +++++ src/runtime/genio.scm | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) create mode 100644 src/.dir-locals.el diff --git a/src/.dir-locals.el b/src/.dir-locals.el new file mode 100644 index 000000000..c432ef64c --- /dev/null +++ b/src/.dir-locals.el @@ -0,0 +1,5 @@ +((scheme-mode (cph-page-minimum . 50) + (cph-page-maximum . 80) + (cph-line-length . 80) + (whitespace-line-column . 80) + (fill-column . 80))) diff --git a/src/runtime/genio.scm b/src/runtime/genio.scm index 83f8b0940..7d2bd3d04 100644 --- a/src/runtime/genio.scm +++ b/src/runtime/genio.scm @@ -920,7 +920,7 @@ USA. (else (error "Unknown result:" r))))))))) (else (error:not-string string 'INPUT-PORT/READ-SUBSTRING!)))) - + (define (input-buffer-in-8-bit-mode? ib) (and (eq? (input-buffer-decode ib) binary-decoder) (eq? (input-buffer-normalize ib) binary-normalizer))) -- 2.25.1