Mercurial > hg > xemacs-beta

diff src/event-xlike-inc.c @ 4358:63c25d1cbecf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
line wrap: on
line diff
--- a/src/event-xlike-inc.c	Sun Dec 09 18:31:41 2007 +0100
+++ b/src/event-xlike-inc.c	Mon Dec 24 15:02:36 2007 +0100
@@ -708,7 +708,15 @@
     return Qnil;
 
 #ifdef MULE
-  return make_char (make_ichar (charset, code, 0));
+  {
+    Lisp_Object unified = Funicode_to_char
+      (Fchar_to_unicode (make_char (make_ichar (charset, code, 0))), Qnil);
+    if (!NILP (unified))
+      {
+        return unified;
+      }
+    return make_char (make_ichar (charset, code, 0));
+  }
 #else
   return make_char (code + 0x80);
 #endif