From f28772ff482224ed04f69d3514b98e82fb8f92ad Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 12 Jul 2004 19:08:36 +0000
Subject: [PATCH] Implement HTML-ELEMENT?.

---
 v7/src/xml/xhtml.scm | 6 +++++-
 v7/src/xml/xml.pkg   | 3 ++-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/v7/src/xml/xhtml.scm b/v7/src/xml/xhtml.scm
index f1c473419..d608d38b8 100644
--- a/v7/src/xml/xhtml.scm
+++ b/v7/src/xml/xhtml.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xhtml.scm,v 1.1 2004/07/12 19:05:17 cph Exp $
+$Id: xhtml.scm,v 1.2 2004/07/12 19:08:32 cph Exp $
 
 Copyright 2002,2003,2004 Massachusetts Institute of Technology
 
@@ -37,6 +37,10 @@ USA.
 (define html-iri
   (make-xml-namespace-iri "http://www.w3.org/1999/xhtml"))
 
+(define (html-element? object)
+  (and (xml-element? object)
+       (xml-name-iri=? (xml-element-name object) html-iri)))
+
 (define-syntax define-standard-element
   (sc-macro-transformer
    (lambda (form environment)
diff --git a/v7/src/xml/xml.pkg b/v7/src/xml/xml.pkg
index 8f960cfcb..0abe67572 100644
--- a/v7/src/xml/xml.pkg
+++ b/v7/src/xml/xml.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xml.pkg,v 1.42 2004/07/12 19:05:36 cph Exp $
+$Id: xml.pkg,v 1.43 2004/07/12 19:08:36 cph Exp $
 
 Copyright 2001,2002,2003,2004 Massachusetts Institute of Technology
 
@@ -299,6 +299,7 @@ USA.
   (export ()
 	  html-attrs
 	  html-dtd
+	  html-element?
 	  html-external-dtd
 	  html-iri
 	  html:a
-- 
2.25.1