From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 Sep 2003 16:25:39 +0000 (+0000)
Subject: Fix some problems with the HTML paragraph separator.
X-Git-Tag: 20090517-FFI~1803
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f43e8505353741d0ec9117e742fe0d01d1c21742;p=mit-scheme.git

Fix some problems with the HTML paragraph separator.
---

diff --git a/v7/src/edwin/htmlmode.scm b/v7/src/edwin/htmlmode.scm
index 2a611c996..a22a0bbed 100644
--- a/v7/src/edwin/htmlmode.scm
+++ b/v7/src/edwin/htmlmode.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: htmlmode.scm,v 1.10 2003/08/19 01:05:46 cph Exp $
+$Id: htmlmode.scm,v 1.11 2003/09/23 16:25:39 cph Exp $
 
 Copyright 1999,2000,2001,2002,2003 Massachusetts Institute of Technology
 
@@ -53,7 +53,16 @@ USA.
     (event-distributor/invoke! (ref-variable html-mode-hook buffer) buffer)))
 
 (define html-paragraph-separator
-  "[ \t]*$\\|[ \t]*</?\\([A-Za-z]\\([-.A-Za-z0-9= \t\n]\\|\"[^\"]*\"\\|'[^']*'\\)*\\)?>$")
+  (let ((lwsp (rexp* (char-set #\space #\tab #\U+A0))))
+    (rexp->regexp
+     (rexp-sequence
+      (rexp-optional lwsp
+		     "<"
+		     (rexp* (char-set-difference char-set:graphic
+						 (string->char-set ">")))
+		     ">")
+      lwsp
+      (rexp-line-end)))))
 
 (define-command html-mode
   "Enter HTML mode."