summaryrefslogtreecommitdiff
path: root/lisp/international/mule.el
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>2003-08-18 12:39:14 +0000
committerKenichi Handa <handa@m17n.org>2003-08-18 12:39:14 +0000
commitbb55c6c97ea83e50e418352df7c0034b47abb368 (patch)
tree9e40a77c892b16dbf8c99c5e8c0b38c3992b9c48 /lisp/international/mule.el
parent33d0b73fecad6d6138dcb1bfb7178a67eb1c0eb0 (diff)
downloademacs-bb55c6c97ea83e50e418352df7c0034b47abb368.tar.gz
(encode-char): Fix for the ASCII case.
Diffstat (limited to 'lisp/international/mule.el')
-rw-r--r--lisp/international/mule.el2
1 files changed, 1 insertions, 1 deletions
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."
(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)