(read_emacs_mule_char) [len==2]: Index

emacs_mule_charset correctly.

diff --git a/src/lread.c b/src/lread.c
index cb4b06c..7a0559c 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -537,7 +537,7 @@ read_emacs_mule_char (c, readbyte, readcharfun)
 
   if (len == 2)
     {
-      charset = emacs_mule_charset[c];
+      charset = emacs_mule_charset[buf[0];
       code = buf[1] & 0x7F;
     }
   else if (len == 3)