From c82820e55b5f1afe487ffd027e54e0d1b6c554ca Mon Sep 17 00:00:00 2001
From: Simon Tatham <anakin@pobox.com>
Date: Thu, 26 May 2005 17:12:04 +0000
Subject: [PATCH] Add support for Jacob's new cursor-key modifier flags in the
 OS X frontend.

[originally from svn r5847]
---
 osx.m | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/osx.m b/osx.m
index dfed94c..ed33bf6 100644
--- a/osx.m
+++ b/osx.m
@@ -589,22 +589,34 @@ struct frontend {
 	 * function key codes.
 	 */
 	if (c >= 0x80) {
+	    int mods = FALSE;
 	    switch (c) {
 	      case NSUpArrowFunctionKey:
 		c = CURSOR_UP;
+		mods = TRUE;
 		break;
 	      case NSDownArrowFunctionKey:
 		c = CURSOR_DOWN;
+		mods = TRUE;
 		break;
 	      case NSLeftArrowFunctionKey:
 		c = CURSOR_LEFT;
+		mods = TRUE;
 		break;
 	      case NSRightArrowFunctionKey:
 		c = CURSOR_RIGHT;
+		mods = TRUE;
 		break;
 	      default:
 		continue;
 	    }
+
+	    if (mods) {
+		if ([ev modifierFlags] & NSShiftKeyMask)
+		    c |= MOD_SHFT;
+		if ([ev modifierFlags] & NSControlKeyMask)
+		    c |= MOD_CTRL;
+	    }
 	}
 
 	if (c >= '0' && c <= '9' && ([ev modifierFlags] & NSNumericPadKeyMask))
-- 
2.30.2