From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 8 Jan 2017 21:53:33 +0000 (-0800)
Subject: Add dir-local variables for pagination and tweak one instance.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~173
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5ccaa5a153d3871ea17c4d75119fa505e637c681;p=mit-scheme.git

Add dir-local variables for pagination and tweak one instance.
---

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)))