From eff386349b2a55daae6b3ce081462dc3045aa202 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 24 Jul 2004 04:39:49 +0000
Subject: [PATCH] Fix definitions of entities so that they work with all
 character sets.

---
 v7/src/xml/xhtml-entities.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/v7/src/xml/xhtml-entities.scm b/v7/src/xml/xhtml-entities.scm
index 186acf51b..ff6295d89 100644
--- a/v7/src/xml/xhtml-entities.scm
+++ b/v7/src/xml/xhtml-entities.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xhtml-entities.scm,v 1.3 2004/07/24 04:21:58 cph Exp $
+$Id: xhtml-entities.scm,v 1.4 2004/07/24 04:39:49 cph Exp $
 
 Copyright 2004 Massachusetts Institute of Technology
 
@@ -279,7 +279,12 @@ USA.
     ))
 
 (define html-entities
-  (map (lambda (b) (make-xml-!entity (car b) (cdr b)))
+  (map (lambda (b)
+	 (make-xml-!entity
+	  (car b)
+	  (list (string-append "&#x"
+			       (number->string (char->integer (cadr b)) 16)
+			       ";"))))
        html-entity-alist))
 
 (define html-char->name-map
-- 
2.25.1