diff options
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/international/mule-diag.el | 9 |
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 @@ | |||
| 1 | 2002-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 | |||
| 1 | 2002-12-01 Dave Love <fx@gnu.org> | 9 | 2002-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")) |