From e51fac9b43230745b339ef364306e4866561bcb3 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 9 Dec 2002 19:30:26 +0000
Subject: [PATCH] Fix comment handling to use same strategy as Emacs.

---
 v7/src/edwin/htmlmode.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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