(unicode-data): Fix treatment of

numeric-value fields.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0b60fdad54c264a35d624045b61559b6da49fcfd..d838250d887bbd78b5127d63914a85aff223144b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2002-12-05  Dave Love  <fx@gnu.org>
+
+       * international/characters.el: Move parts around so that syntax
+       definitions aren't overwritten wrongly.
+
+       * international/mule-diag.el (unicode-data): Fix treatment of
+       numeric-value fields.
+
 2002-12-01  Dave Love  <fx@gnu.org>
 
        * progmodes/cap-words.el: New file.

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 8ba3fa06bce290987bcc0f3b935cafcd91a59af2..80511746b31a1bf5880238a03ea99212c46a731c 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -1373,14 +1373,11 @@ character)")
                                        parts " "))
                           (concat info parts))))
               (list "Decimal digit value"
-                    (if (nth 5 fields)
-                        (string-to-number (nth 5 fields))))
+                    (nth 5 fields))
               (list "Digit value"
-                    (if (nth 6 fields)
-                        (string-to-number (nth 6 fields))))
+                    (nth 6 fields))
               (list "Numeric value"
-                    (if (nth 7 fields)
-                        (string-to-number (nth 6 fields))))
+                    (nth 7 fields))
               (list "Mirrored"
                     (if (equal "Y" (nth 8 fields))
                         "yes"))