From: Po Lu <luangruo@yahoo.com>
Date: Wed, 12 Jan 2022 07:20:29 +0000 (+0000)
Subject: Translate more keys on Haiku
X-Git-Tag: emacs-29.0.90~3119
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=60dd962507ea1f7f5b41cb76d1efd9c0a0957353;p=emacs.git

Translate more keys on Haiku

* src/haiku_support.cc (keysym_from_raw_char): Translate print,
scroll lock, and pause/break.
---

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: