Mercurial > emacs
diff src/editfns.c @ 22929:6dda0a4b882f
(general_insert_function): If enable-multibyte-characters is
nil, convert a multibyte character to unibyte appropriately.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 07 Aug 1998 05:04:36 +0000 |
| parents | 9f800ebc6091 |
| children | 3301dde7abba |
line wrap: on
line diff
--- a/src/editfns.c Fri Aug 07 05:04:36 1998 +0000 +++ b/src/editfns.c Fri Aug 07 05:04:36 1998 +0000 @@ -1326,7 +1326,13 @@ if (!NILP (current_buffer->enable_multibyte_characters)) len = CHAR_STRING (XFASTINT (val), workbuf, str); else - workbuf[0] = XINT (val), str = workbuf, len = 1; + { + workbuf[0] = (SINGLE_BYTE_CHAR_P (XINT (val)) + ? XINT (val) + : multibyte_char_to_unibyte (XINT (val), Qnil)); + str = workbuf; + len = 1; + } (*insert_func) (str, len); } else if (STRINGP (val))