Mercurial > hg > xemacs-beta

comparison src/event-xlike-inc.c @ 4364:d74913294e87

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Automated merge with file:/Sources/xemacs-21.5-checked-out
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 27 Dec 2007 13:21:05 +0100
parents 63c25d1cbecf
children b3ce27ca7647
comparison
equal deleted inserted replaced
4363:6a17ac5da3c4 4364:d74913294e87
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