From 60dd962507ea1f7f5b41cb76d1efd9c0a0957353 Mon Sep 17 00:00:00 2001
From: Po Lu <luangruo@yahoo.com>
Date: Wed, 12 Jan 2022 07:20:29 +0000
Subject: [PATCH] Translate more keys on Haiku

* src/haiku_support.cc (keysym_from_raw_char): Translate print,
scroll lock, and pause/break.
---
 src/haiku_support.cc | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/haiku_support.cc b/src/haiku_support.cc
index 531dfb5c642..602b8507244 100644
--- a/src/haiku_support.cc
+++ b/src/haiku_support.cc
@@ -186,6 +186,14 @@ keysym_from_raw_char (int32 raw, int32 key, unsigned *code)
 
     case B_FUNCTION_KEY:
       *code = XK_F1 + key - 2;
+
+      if (*code - XK_F1 == 12)
+	*code = XK_Print;
+      else if (*code - XK_F1 == 13)
+	*code = XK_Scroll_Lock;
+      else if (*code - XK_F1 == 14)
+	*code = XK_Pause;
+
       break;
 
     default:
-- 
2.39.2