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; |
1086 |
static void |
static void |
1087 |
call_after_gbc_hook(t) |
call_after_gbc_hook(t) { |
1088 |
{ if (sSAafter_gbc_hookA && sSAafter_gbc_hookA->s.s_dbind!= Cnil) |
|
1089 |
{ set_up_string_register(tm_table[(int)t].tm_name+1); |
if (sSAafter_gbc_hookA && sSAafter_gbc_hookA->s.s_dbind!= Cnil) { |
1090 |
ifuncall1(sSAafter_gbc_hookA->s.s_dbind,intern(string_register,system_package)); |
in_agbch=1; |
1091 |
} |
set_up_string_register(tm_table[(int)t].tm_name+1); |
1092 |
|
ifuncall1(sSAafter_gbc_hookA->s.s_dbind,intern(string_register,system_package)); |
1093 |
|
in_agbch=0; |
1094 |
|
} |
1095 |
|
|
1096 |
} |
} |
1097 |
|
|
1098 |
void |
void |
1106 |
#ifdef DEBUG |
#ifdef DEBUG |
1107 |
int tm=0; |
int tm=0; |
1108 |
#endif |
#endif |
1109 |
|
|
1110 |
|
if (in_agbch) |
1111 |
|
return; |
1112 |
|
|
1113 |
mcsl=mcsh=&tm; |
mcsl=mcsh=&tm; |
1114 |
|
|