(encode-char): Fix for the ASCII case.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 38cadc84bc2dc30b3e193ab88ce0dd04679a7deb..b450df03a92f684e511885e2474fb05bdad48206 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2003-08-18  Kenichi Handa  <handa@m17n.org>
+
+       * international/mule.el (encode-char): Fix for the ASCII case.
+
+2003-08-15  Kenichi Handa  <handa@m17n.org>
+
+       * international/fontset.el (setup-default-fontset): Change "*" to
+       nil in the specifications of font family.
+
 2003-08-18  Kim F. Storm  <storm@cua.dk>
 
        * kmacro.el (kmacro-keymap): Group related bindings in

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index f37c3704cf2875587ba14d122e432a6fdc42b2ed..f15e604c03778f162fe2991c0d9f2f7cf5610fe3 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -370,7 +370,7 @@ code-point in CCS.  Currently not supported and just ignored."
                     (setq split (split-char trans)
                           charset (car split)))
                 (cond ((eq charset 'ascii)
-                       char)
+                       (or trans char))
                       ((eq charset 'latin-iso8859-1)
                        (+ (nth 1 split) 128))
                       ((eq charset 'mule-unicode-0100-24ff)