1082 |
|
|
1083 |
DEFVAR("*AFTER-GBC-HOOK*",sSAafter_gbc_hookA,SI,sLnil,""); |
DEFVAR("*AFTER-GBC-HOOK*",sSAafter_gbc_hookA,SI,sLnil,""); |
1084 |
|
|
1085 |
static int in_agbch; |
static struct symbol in_agbchs; |
1086 |
|
static object in_agbch=(object)&in_agbchs; |
1087 |
static void |
static void |
1088 |
call_after_gbc_hook(t) { |
call_after_gbc_hook(t) { |
1089 |
|
|
1090 |
if (sSAafter_gbc_hookA && sSAafter_gbc_hookA->s.s_dbind!= Cnil) { |
if (sSAafter_gbc_hookA && sSAafter_gbc_hookA->s.s_dbind!= Cnil) { |
1091 |
in_agbch=1; |
bds_ptr old_bds_top = bds_top; |
1092 |
|
bds_bind(in_agbch,Ct); |
1093 |
set_up_string_register(tm_table[(int)t].tm_name+1); |
set_up_string_register(tm_table[(int)t].tm_name+1); |
1094 |
ifuncall1(sSAafter_gbc_hookA->s.s_dbind,intern(string_register,system_package)); |
ifuncall1(sSAafter_gbc_hookA->s.s_dbind,intern(string_register,system_package)); |
1095 |
in_agbch=0; |
bds_unwind(old_bds_top); |
1096 |
} |
} |
1097 |
|
|
1098 |
} |
} |
1109 |
int tm=0; |
int tm=0; |
1110 |
#endif |
#endif |
1111 |
|
|
1112 |
if (in_agbch) |
if (in_agbch->s.s_dbind==Ct) |
1113 |
return; |
return; |
1114 |
|
|
1115 |
mcsl=mcsh=&tm; |
mcsl=mcsh=&tm; |