diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/international/mule.el | 2 |
2 files changed, 10 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 38cadc84bc2..b450df03a92 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,12 @@ | |||
| 1 | 2003-08-18 Kenichi Handa <handa@m17n.org> | ||
| 2 | |||
| 3 | * international/mule.el (encode-char): Fix for the ASCII case. | ||
| 4 | |||
| 5 | 2003-08-15 Kenichi Handa <handa@m17n.org> | ||
| 6 | |||
| 7 | * international/fontset.el (setup-default-fontset): Change "*" to | ||
| 8 | nil in the specifications of font family. | ||
| 9 | |||
| 1 | 2003-08-18 Kim F. Storm <storm@cua.dk> | 10 | 2003-08-18 Kim F. Storm <storm@cua.dk> |
| 2 | 11 | ||
| 3 | * kmacro.el (kmacro-keymap): Group related bindings in | 12 | * kmacro.el (kmacro-keymap): Group related bindings in |
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index f37c3704cf2..f15e604c037 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el | |||
| @@ -370,7 +370,7 @@ code-point in CCS. Currently not supported and just ignored." | |||
| 370 | (setq split (split-char trans) | 370 | (setq split (split-char trans) |
| 371 | charset (car split))) | 371 | charset (car split))) |
| 372 | (cond ((eq charset 'ascii) | 372 | (cond ((eq charset 'ascii) |
| 373 | char) | 373 | (or trans char)) |
| 374 | ((eq charset 'latin-iso8859-1) | 374 | ((eq charset 'latin-iso8859-1) |
| 375 | (+ (nth 1 split) 128)) | 375 | (+ (nth 1 split) 128)) |
| 376 | ((eq charset 'mule-unicode-0100-24ff) | 376 | ((eq charset 'mule-unicode-0100-24ff) |