bluepython508/riverguile
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add exit handler

Browse Source
This commit is contained in:
Leon Henrik Plickat
2024-01-06 23:55:10 +01:00
parent 2ccbfb2283
commit 732c1adb55
8 changed files with 48 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/load-script.c
View File

@@ -78,6 +78,8 @@ static SCM install_handler (SCM key, SCM proc)
context.layout_demand_handler = proc;
else if ( scm_is_eq(scm_from_utf8_symbol("user-command"), key) == 1)
context.user_command_handler = proc;
else if ( scm_is_eq(scm_from_utf8_symbol("exit"), key) == 1)
context.exit_handler = proc;
else if ( scm_is_true(scm_string_prefix_p(scm_from_utf8_string("idle:"), scm_symbol_to_string(key),
scm_from_int(0), scm_from_int(5),
scm_from_int(0), scm_string_length(scm_symbol_to_string(key)))) == 1 )