From 85fe458bc85cec4c87d9292203e75fd10482b461 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 May 1989 18:52:49 +0000
Subject: [PATCH] Use new syntax-entry "p" bit to properly describe the Scheme
 prefix character actions.

---
 v7/src/edwin/schmod.scm | 47 ++++++++++++++++++++---------------------
 1 file changed, 23 insertions(+), 24 deletions(-)

diff --git a/v7/src/edwin/schmod.scm b/v7/src/edwin/schmod.scm
index 4f990848c..4ce3df031 100644
--- a/v7/src/edwin/schmod.scm
+++ b/v7/src/edwin/schmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/schmod.scm,v 1.10 1989/04/28 22:53:00 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/schmod.scm,v 1.11 1989/05/16 18:52:49 cph Rel $
 ;;;
 ;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -102,33 +102,32 @@ the buffer *Transcript*:
 
 (define scheme-mode:syntax-table (make-syntax-table))
 
-(modify-syntax-entries! scheme-mode:syntax-table #\NUL #\/ "_   ")
-(modify-syntax-entries! scheme-mode:syntax-table #\: #\@ "_   ")
-(modify-syntax-entries! scheme-mode:syntax-table #\[ #\` "_   ")
-(modify-syntax-entries! scheme-mode:syntax-table #\{ #\Rubout "_   ")
-
-(modify-syntax-entry! scheme-mode:syntax-table #\Space "    ")
-(modify-syntax-entry! scheme-mode:syntax-table #\Tab "    ")
-(modify-syntax-entry! scheme-mode:syntax-table #\Page "    ")
-(modify-syntax-entry! scheme-mode:syntax-table #\[ "    ")
-(modify-syntax-entry! scheme-mode:syntax-table #\] "    ")
-(modify-syntax-entry! scheme-mode:syntax-table #\{ "    ")
-(modify-syntax-entry! scheme-mode:syntax-table #\} "    ")
+(modify-syntax-entries! scheme-mode:syntax-table #\NUL #\/ "_")
+(modify-syntax-entries! scheme-mode:syntax-table #\: #\@ "_")
+(modify-syntax-entries! scheme-mode:syntax-table #\[ #\` "_")
+(modify-syntax-entries! scheme-mode:syntax-table #\{ #\Rubout "_")
+
+(modify-syntax-entry! scheme-mode:syntax-table #\Space " ")
+(modify-syntax-entry! scheme-mode:syntax-table #\Tab " ")
+(modify-syntax-entry! scheme-mode:syntax-table #\Page " ")(modify-syntax-entry! scheme-mode:syntax-table #\[ " ")
+(modify-syntax-entry! scheme-mode:syntax-table #\] " ")
+(modify-syntax-entry! scheme-mode:syntax-table #\{ " ")
+(modify-syntax-entry! scheme-mode:syntax-table #\} " ")
 (modify-syntax-entry! scheme-mode:syntax-table #\| "  23")
 
-(modify-syntax-entry! scheme-mode:syntax-table #\; "<   ")
-(modify-syntax-entry! scheme-mode:syntax-table #\newline ">   ")
+(modify-syntax-entry! scheme-mode:syntax-table #\; "< ")
+(modify-syntax-entry! scheme-mode:syntax-table #\newline "> ")
 
-(modify-syntax-entry! scheme-mode:syntax-table #\' "'   ")
-(modify-syntax-entry! scheme-mode:syntax-table #\` "'   ")
-(modify-syntax-entry! scheme-mode:syntax-table #\, "'   ")
-(modify-syntax-entry! scheme-mode:syntax-table #\@ "'   ")
-(modify-syntax-entry! scheme-mode:syntax-table #\# "' 14")
+(modify-syntax-entry! scheme-mode:syntax-table #\' "  p")
+(modify-syntax-entry! scheme-mode:syntax-table #\` "  p")
+(modify-syntax-entry! scheme-mode:syntax-table #\, "_ p")
+(modify-syntax-entry! scheme-mode:syntax-table #\@ "_ p")
+(modify-syntax-entry! scheme-mode:syntax-table #\# "_ p14")
 
-(modify-syntax-entry! scheme-mode:syntax-table #\" "\"   ")
-(modify-syntax-entry! scheme-mode:syntax-table #\\ "\\   ")
-(modify-syntax-entry! scheme-mode:syntax-table #\( "()  ")
-(modify-syntax-entry! scheme-mode:syntax-table #\) ")(  ")
+(modify-syntax-entry! scheme-mode:syntax-table #\" "\" ")
+(modify-syntax-entry! scheme-mode:syntax-table #\\ "\\ ")
+(modify-syntax-entry! scheme-mode:syntax-table #\( "()")
+(modify-syntax-entry! scheme-mode:syntax-table #\) ")(")
 
 ;;;; Indentation
 
-- 
2.25.1