Mercurial > hg > xemacs-beta
comparison src/event-xlike-inc.c @ 4358:63c25d1cbecf
Unify the typed character under X11, using the unicode precedence list
2007-12-24 Aidan Kehoe <kehoea@parhasard.net>
* event-xlike-inc.c (x_keysym_to_character):
* event-xlike-inc.c (gtk_keysym_to_character):
Unify the typed character if possible, following the current value
for the unicode precedence list.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Mon, 24 Dec 2007 15:02:36 +0100 |
| parents | 24b58b2d56ab |
| children | b3ce27ca7647 |
comparison
equal
deleted
inserted
replaced
| 4319:74d00c7cc134 | 4358:63c25d1cbecf |
|---|---|
| 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 |