From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 9 Dec 2002 19:30:26 +0000 (+0000)
Subject: Fix comment handling to use same strategy as Emacs.
X-Git-Tag: 20090517-FFI~2109
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e51fac9b43230745b339ef364306e4866561bcb3;p=mit-scheme.git

Fix comment handling to use same strategy as Emacs.
---

diff --git a/v7/src/edwin/htmlmode.scm b/v7/src/edwin/htmlmode.scm
index 428a3fef8..82cb61a5b 100644
--- a/v7/src/edwin/htmlmode.scm
+++ b/v7/src/edwin/htmlmode.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: htmlmode.scm,v 1.6 2002/11/20 19:46:00 cph Exp $
+;;; $Id: htmlmode.scm,v 1.7 2002/12/09 19:30:26 cph Exp $
 ;;;
-;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
+;;; Copyright (c) 1999, 2000, 2001, 2002 Massachusetts Institute of Technology
 ;;;
 ;;; This file is part of MIT Scheme.
 ;;;
@@ -68,10 +68,10 @@
 
 (define html-syntax-table
   (let ((syntax-table (make-char-syntax-table text-mode:syntax-table)))
-    (set-char-syntax! syntax-table #\< "(>1")
-    (set-char-syntax! syntax-table #\! ". 2")
-    (set-char-syntax! syntax-table #\- "_ 3")
-    (set-char-syntax! syntax-table #\> ")<4")
+    (set-char-syntax! syntax-table #\< "(>")
+    (set-char-syntax! syntax-table #\! ". ")
+    (set-char-syntax! syntax-table #\- "_ 1234")
+    (set-char-syntax! syntax-table #\> ")<")
     (set-char-syntax! syntax-table #\" "\"\"")
     syntax-table))