From: Dave Love <fx@gnu.org>
Date: Thu, 5 Dec 2002 14:31:28 +0000 (+0000)
Subject: (unicode-data): Fix treatment of
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~147
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fa64065b1befda06dda72cf5b8f30dc650a3663f;p=emacs.git

(unicode-data): Fix treatment of
numeric-value fields.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0b60fdad54c..d838250d887 100644
--- 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 8ba3fa06bce..80511746b31 100644
--- 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"))