Fix definitions of entities so that they work with all character sets.

diff --git a/v7/src/xml/xhtml-entities.scm b/v7/src/xml/xhtml-entities.scm
index 186acf51bb8e182be1bc5119ea056a2508519295..ff6295d89910997b840360927e92454cbe023b4b 100644 (file)
--- 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