aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog8
-rw-r--r--lisp/international/mule-diag.el9
2 files changed, 11 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0b60fdad54c..d838250d887 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
12002-12-05 Dave Love <fx@gnu.org>
2
3 * international/characters.el: Move parts around so that syntax
4 definitions aren't overwritten wrongly.
5
6 * international/mule-diag.el (unicode-data): Fix treatment of
7 numeric-value fields.
8
12002-12-01 Dave Love <fx@gnu.org> 92002-12-01 Dave Love <fx@gnu.org>
2 10
3 * progmodes/cap-words.el: New file. 11 * 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)")
1373 parts " ")) 1373 parts " "))
1374 (concat info parts)))) 1374 (concat info parts))))
1375 (list "Decimal digit value" 1375 (list "Decimal digit value"
1376 (if (nth 5 fields) 1376 (nth 5 fields))
1377 (string-to-number (nth 5 fields))))
1378 (list "Digit value" 1377 (list "Digit value"
1379 (if (nth 6 fields) 1378 (nth 6 fields))
1380 (string-to-number (nth 6 fields))))
1381 (list "Numeric value" 1379 (list "Numeric value"
1382 (if (nth 7 fields) 1380 (nth 7 fields))
1383 (string-to-number (nth 6 fields))))
1384 (list "Mirrored" 1381 (list "Mirrored"
1385 (if (equal "Y" (nth 8 fields)) 1382 (if (equal "Y" (nth 8 fields))
1386 "yes")) 1383 "yes"))