Mercurial > hg > xemacs-beta

comparison src/event-xlike-inc.c @ 4408:8bbabcab2c42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 20 Jan 2008 13:09:58 +0100
parents 63c25d1cbecf
children b3ce27ca7647
comparison
equal deleted inserted replaced
4407:4ee73bbe4f8e 4408:8bbabcab2c42
706 706
707 if (code == 0) 707 if (code == 0)
708 return Qnil; 708 return Qnil;
709 709
710 #ifdef MULE 710 #ifdef MULE
711 return make_char (make_ichar (charset, code, 0)); 711 {
712 Lisp_Object unified = Funicode_to_char
713 (Fchar_to_unicode (make_char (make_ichar (charset, code, 0))), Qnil);
714 if (!NILP (unified))
715 {
716 return unified;
717 }
718 return make_char (make_ichar (charset, code, 0));
719 }
712 #else 720 #else
713 return make_char (code + 0x80); 721 return make_char (code + 0x80);
714 #endif 722 #endif
715 } 723 }
716 724