From 5ccaa5a153d3871ea17c4d75119fa505e637c681 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
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