summaryrefslogtreecommitdiff
path: root/src/lread.c
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>2010-11-25 12:55:14 +0900
committerKenichi Handa <handa@m17n.org>2010-11-25 12:55:14 +0900
commitb84ae584330c940010bc543fd925eddeb13fd9e2 (patch)
treec0a1ef38fd720674080b3ef1fc8e5f3cad6e7145 /src/lread.c
parentcf5314c93a722b73cbf0f3607bea152d79c3df7b (diff)
downloademacs-b84ae584330c940010bc543fd925eddeb13fd9e2.tar.gz
Fix decoding of emacs-mule coding system.
Diffstat (limited to 'src/lread.c')
-rw-r--r--src/lread.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/lread.c b/src/lread.c
index c96e391a2d3..13de4d01317 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -616,7 +616,7 @@ read_emacs_mule_char (c, readbyte, readcharfun)
if (len == 2)
{
- charset = emacs_mule_charset[buf[0]];
+ charset = CHARSET_FROM_ID (emacs_mule_charset[buf[0]]);
code = buf[1] & 0x7F;
}
else if (len == 3)
@@ -624,18 +624,18 @@ read_emacs_mule_char (c, readbyte, readcharfun)
if (buf[0] == EMACS_MULE_LEADING_CODE_PRIVATE_11
|| buf[0] == EMACS_MULE_LEADING_CODE_PRIVATE_12)
{
- charset = emacs_mule_charset[buf[1]];
+ charset = CHARSET_FROM_ID (emacs_mule_charset[buf[1]]);
code = buf[2] & 0x7F;
}
else
{
- charset = emacs_mule_charset[buf[0]];
+ charset = CHARSET_FROM_ID (emacs_mule_charset[buf[0]]);
code = ((buf[1] << 8) | buf[2]) & 0x7F7F;
}
}
else
{
- charset = emacs_mule_charset[buf[1]];
+ charset = CHARSET_FROM_ID (emacs_mule_charset[buf[1]]);
code = ((buf[2] << 8) | buf[3]) & 0x7F7F;
}
c = DECODE_CHAR (charset, code);