Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Ignore scroll lock key on Haiku

Browse source 
* src/haiku_support.cc (keysym_from_raw_char): Return special
value for keys that shouldn't be sent to Emacs.
(DispatchMessage): Respect said value.
This commit is contained in:
Po Lu 2022-01-12 11:09:38 +00:00
parent 60dd962507
commit aa685a465b
1 changed files with 22 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
src/haiku_support.cc
View file

@ -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 @@ class EmacsWindow : public BWindow
rq.window = this;
int32 raw, key;
int ret;
msg->FindInt32 ("raw_char", &raw);
msg->FindInt32 ("key", &key);
@ -719,9 +734,14 @@ class EmacsWindow : public BWindow
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)