forked from pool/xemacs
c904c531e6
I see, please have a look at this then OBS-URL: https://build.opensuse.org/request/show/130343 OBS-URL: https://build.opensuse.org/package/show/M17N/xemacs?expand=0&rev=54
19 lines
581 B
Diff
19 lines
581 B
Diff
Index: src/event-Xt.c
|
|
===================================================================
|
|
--- src/event-Xt.c.orig
|
|
+++ src/event-Xt.c
|
|
@@ -1224,8 +1224,11 @@ x_event_to_emacs_event (XEvent *x_event,
|
|
|
|
if (modifiers & XEMACS_MOD_SHIFT)
|
|
{
|
|
- int Mode_switch_p = *state & xd->ModeMask;
|
|
- KeySym bot = XLookupKeysym (ev, Mode_switch_p ? 2 : 0);
|
|
+ KeySym bot;
|
|
+ XKeyEvent tmpev = *ev;
|
|
+
|
|
+ tmpev.state = *state & (xd->ModeMask | ~0xff);
|
|
+ XLookupString(&tmpev, NULL, 0, &bot, NULL);
|
|
if (x_keysym && bot && x_keysym != bot)
|
|
modifiers &= ~XEMACS_MOD_SHIFT;
|
|
}
|