procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

New variable haiku-pass-control-tab-to-system

Browse source 
Allow passing C-TAB on to the Haiku operating system, fixing
window switching when an Emacs frame has focus (Bug#70138).
* src/haiku_support.cc (DispatchMessage): Conditionally pass
message to BWindow.
* src/haiku_support.h:
* src/haikufns.c (haiku_should_pass_control_tab_to_system): Add
variable haiku-pass-control-tab-to-system, and C function
haiku_should_pass_control_tab_to_system.

Co-authored-by: Po Lu <luangruo@yahoo.com>
Copyright-paperwork-exempt: yes
This commit is contained in:
Tor-björn Claesson 2024-04-03 10:25:59 +03:00 • committed by Po Lu
parent 7a41de3d51
commit ba3bf69f84
4 changed files with 28 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
etc/NEWS
View file

@ -1916,6 +1916,11 @@ The new function 'haiku-notifications-notify' provides a subset of the
capabilities of the 'notifications-notify' function in a manner
analogous to 'w32-notification-notify'.
** New variable 'haiku-pass-control-tab-to-system'.
This sets whether Emacs should pass C-TAB on to the system instead of
handling it, fixing a problem where window switching would not activate
if an Emacs frame had focus on the Haiku operation system.
+++
** New value 'if-regular' for the REPLACE argument to 'insert-file-contents'.
It results in 'insert-file-contents' erasing the buffer instead of

7
src/haiku_support.cc
View file

@ -1063,6 +1063,13 @@ class EmacsWindow : public BWindow
uint32_t mods = modifiers ();
if (haiku_should_pass_control_tab_to_system ()
&& (mods & B_CONTROL_KEY) && key == 38)
{
BWindow::DispatchMessage (msg, handler);
return;
}
if (mods & B_SHIFT_KEY)
rq.modifiers |= HAIKU_MODIFIER_SHIFT;

2
src/haiku_support.h
View file

@ -691,6 +691,8 @@ extern int be_get_display_color_cells (void);
extern bool be_is_display_grayscale (void);
extern void be_warp_pointer (int, int);
extern bool haiku_should_pass_control_tab_to_system (void);
extern void EmacsView_set_up_double_buffering (void *);
extern void EmacsView_disable_double_buffering (void *);
extern void EmacsView_flip_and_blit (void *);

14
src/haikufns.c
View file

@ -2194,6 +2194,12 @@ haiku_set_use_frame_synchronization (struct frame *f, Lisp_Object arg,
be_set_use_frame_synchronization (FRAME_HAIKU_VIEW (f), !NILP (arg));
}
bool
haiku_should_pass_control_tab_to_system (void)
{
return haiku_pass_control_tab_to_system;
}
DEFUN ("haiku-set-mouse-absolute-pixel-position",
@ -3302,6 +3308,14 @@ syms_of_haikufns (void)
doc: /* SKIP: real doc in xfns.c. */);
Vx_sensitive_text_pointer_shape = Qnil;
DEFVAR_BOOL ("haiku-pass-control-tab-to-system",
haiku_pass_control_tab_to_system,
doc: /* Whether or not to pass C-TAB to the system.
Setting this variable will cause Emacs to pass C-TAB to the system
(allowing window switching on the Haiku operating system), rather than
intercepting it. */);
haiku_pass_control_tab_to_system = true;
DEFVAR_LISP ("haiku-allowed-ui-colors", Vhaiku_allowed_ui_colors,
doc: /* Vector of UI colors that Emacs can look up from the system.
If this is set up incorrectly, Emacs can crash when encountering an