Mercurial > hg > xemacs-beta

comparison src/event-gtk.c @ 4834:b3ea9c582280

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
author Ben Wing <ben@xemacs.org>
date Tue, 12 Jan 2010 01:38:04 -0600
parents bc4f2511bbea
children b3ce27ca7647 19a72041c5ed
comparison
equal deleted inserted replaced
4833:4dd2389173fc 4834:b3ea9c582280
1785 { 1785 {
1786 Extbyte *name = XKeysymToString (keysym[0]); 1786 Extbyte *name = XKeysymToString (keysym[0]);
1787 Lisp_Object sym = gtk_keysym_to_emacs_keysym (keysym[0], 0); 1787 Lisp_Object sym = gtk_keysym_to_emacs_keysym (keysym[0], 0);
1788 if (name) 1788 if (name)
1789 { 1789 {
1790 Fputhash (build_ext_string (name, Qnative), Qsans_modifiers, 1790 Fputhash (build_ext_string (name, Qx_keysym_encoding),
1791 hashtable); 1791 Qsans_modifiers, hashtable);
1792 Fputhash (sym, Qsans_modifiers, hashtable); 1792 Fputhash (sym, Qsans_modifiers, hashtable);
1793 } 1793 }
1794 } 1794 }
1795 1795
1796 for (j = 1; j < keysyms_per_code; j++) 1796 for (j = 1; j < keysyms_per_code; j++)
1800 { 1800 {
1801 Extbyte *name = XKeysymToString (keysym[j]); 1801 Extbyte *name = XKeysymToString (keysym[j]);
1802 Lisp_Object sym = gtk_keysym_to_emacs_keysym (keysym[j], 0); 1802 Lisp_Object sym = gtk_keysym_to_emacs_keysym (keysym[j], 0);
1803 if (name && NILP (Fgethash (sym, hashtable, Qnil))) 1803 if (name && NILP (Fgethash (sym, hashtable, Qnil)))
1804 { 1804 {
1805 Fputhash (build_ext_string (name, Qnative), Qt, hashtable); 1805 Fputhash (build_ext_string (name, Qx_keysym_encoding),
1806 Qt, hashtable);
1806 Fputhash (sym, Qt, hashtable); 1807 Fputhash (sym, Qt, hashtable);
1807 } 1808 }
1808 } 1809 }
1809 } 1810 }
1810 } 1811 }