Ignore scroll lock key on Haiku

* src/haiku_support.cc (keysym_from_raw_char): Return special
value for keys that shouldn't be sent to Emacs.
(DispatchMessage): Respect said value.

1 files changed, 22 insertions, 2 deletions

diff --git a/src/haiku_support.cc b/src/haiku_support.cc
index 602b8507244..d49e319b98c 100644
--- a/src/haiku_support.cc
+++ b/src/haiku_support.cc
@@ -136,6 +136,15 @@ gui_abort (const char *msg)
   emacs_abort ();
 }
 
+/* Convert a raw character RAW produced by the keycode KEY into a key
+   symbol and place it in KEYSYM.
+
+   If RAW cannot be converted into a keysym, value is 0.  If RAW can
+   be converted into a keysym, but it should be ignored, value is -1.
+
+   Any other value means success, and that the keysym should be used
+   instead of mapping the keycode into a character.  */
+
 static int
 keysym_from_raw_char (int32 raw, int32 key, unsigned *code)
 {
@@ -190,7 +199,12 @@ keysym_from_raw_char (int32 raw, int32 key, unsigned *code)
       if (*code - XK_F1 == 12)
 	*code = XK_Print;
       else if (*code - XK_F1 == 13)
-	*code = XK_Scroll_Lock;
+	/* Okay, Scroll Lock is a bit too much: keyboard.c doesn't
+	   know about it yet, and it shouldn't, since that's a
+	   modifier key.
+
+	   *code = XK_Scroll_Lock; */
+	return -1;
       else if (*code - XK_F1 == 14)
 	*code = XK_Pause;
 
@@ -701,6 +715,7 @@ public:
 	rq.window = this;
 
 	int32 raw, key;
+	int ret;
 	msg->FindInt32 ("raw_char", &raw);
 	msg->FindInt32 ("key", &key);
 
@@ -719,9 +734,14 @@ public:
 	if (mods & B_OPTION_KEY)
 	  rq.modifiers |= HAIKU_MODIFIER_SUPER;
 
-	if (!keysym_from_raw_char (raw, key, &rq.keysym))
+	ret = keysym_from_raw_char (raw, key, &rq.keysym);
+
+	if (!ret)
 	  rq.keysym = 0;
 
+	if (ret < 0)
+	  return;
+
 	rq.multibyte_char = 0;
 
 	if (!rq.keysym)