changeset 52234:8430ee3561fa

(encode-char): Fix for the ASCII case.
author Kenichi Handa <handa@m17n.org>
date Mon, 18 Aug 2003 12:37:41 +0000
parents 20e27d5ca4c8
children 63632b9778fb
files lisp/international/mule.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule.el	Sun Aug 17 22:53:07 2003 +0000
+++ b/lisp/international/mule.el	Mon Aug 18 12:37:41 2003 +0000
@@ -370,7 +370,7 @@
 		     (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)