Since Uwe didn't actually want this and since there is no demonstrable need
for this, I'm going to revert this patch unless someone generates a cogent
argument in favor of the patch.
Regards,
Vin
---------- Forwarded message ----------
From: <commits-noreply(a)bitbucket.org>
Date: Fri, Apr 12, 2013 at 11:52 AM
Subject: commit/xemacs-21.4: Vin Shelton: Apply Sean MacLennon's patch to
recognize shifted function keys directly.
To: xemacs-commits(a)xemacs.org
1 new commit in xemacs-21.4:
https://bitbucket.org/xemacs/xemacs-21.4/commits/13d13fa19748/
Changeset: 13d13fa19748
User: Vin Shelton
Date: 2013-04-12 17:34:28
Summary: Apply Sean MacLennon's patch to recognize shifted function
keys directly.
Affected #: 2 files
diff -r 2ccd146e07e9e2554f1e759d1fddee2b5d6527d8 -r
13d13fa1974802424c254ff5e981d148f8163dcd src/ChangeLog
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+2013-04-12 Vin Shelton <acs(a)xemacs.org>
+
+ * event-Xt.c (x_event_to_emacs_event): Allow XEmacs to recognize
+ shifted function keys directly. This is likely an XFree bug.
+ Patch by Sean MacLennan.
+
2012-07-12 Vin Shelton <acs(a)xemacs.org>
* glyphs-eimage.c: Fix this so it compiles with libpng-1.5.10.
diff -r 2ccd146e07e9e2554f1e759d1fddee2b5d6527d8 -r
13d13fa1974802424c254ff5e981d148f8163dcd src/event-Xt.c
--- a/src/event-Xt.c
+++ b/src/event-Xt.c
@@ -1260,7 +1260,25 @@
KeySym bot = XLookupKeysym (ev, Mode_switch_p ? 2 : 0);
KeySym top = XLookupKeysym (ev, Mode_switch_p ? 3 : 1);
if (top && bot && top != bot)
- modifiers &= ~XEMACS_MOD_SHIFT;
+ /* Look directly for shifted function keycodes */
+ switch(top) {
+ case 0x1008fe01:
+ case 0x1008fe02:
+ case 0x1008fe03:
+ case 0x1008fe04:
+ case 0x1008fe05:
+ case 0x1008fe06:
+ case 0x1008fe07:
+ case 0x1008fe08:
+ case 0x1008fe09:
+ case 0x1008fe0a:
+ case 0x1008fe0b:
+ case 0x1008fe0c:
+ break;
+ default:
+ modifiers &= ~XEMACS_MOD_SHIFT;
+ break;
+ }
}
emacs_event->event_type = key_press_event;
emacs_event->timestamp = ev->time;
Repository URL:
https://bitbucket.org/xemacs/xemacs-21.4/
--
This is a commit notification from
bitbucket.org. You are receiving
this because you have the service enabled, addressing the recipient of
this email.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-beta