]> git.eshelyaron.com Git - emacs.git/commitdiff
Translate more keys on Haiku
authorPo Lu <luangruo@yahoo.com>
Wed, 12 Jan 2022 07:20:29 +0000 (07:20 +0000)
committerPo Lu <luangruo@yahoo.com>
Wed, 12 Jan 2022 07:21:28 +0000 (07:21 +0000)
* src/haiku_support.cc (keysym_from_raw_char): Translate print,
scroll lock, and pause/break.

src/haiku_support.cc

index 531dfb5c64276b0fddd1272f3199224e1bd96a48..602b8507244f5a7724db9a1403dbf3d547de05a1 100644 (file)
@@ -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: