erase table entry only if global or \currentgrouplevel==0

source/texk/web2c/ptexdir/ptex-base.ch

@@ -6292,14 +6292,16 @@ assign_inhibit_xsp_code:
 begin p:=cur_chr; scan_int; n:=cur_val; scan_optional_equals; scan_int;
 if is_char_kanji(n) then
   begin j:=get_inhibit_pos(tokanji(n),new_pos);
-  if (j<>no_entry)and(cur_val>inhibit_after) then 
+  if (j<>no_entry)and(cur_val>inhibit_after)and(global or cur_level=level_one) then
     begin n:=0; cur_val:=0 end
     { remove the entry from inhibit table }
-  else if j=no_entry then
-    begin print_err("Inhibit table is full!!");
-    help1("I'm skipping this control sequences.");@/
-    error; return;
-  end;
+  else if j=no_entry then begin
+    if (cur_val<=inhibit_after) and not(cur_level=level_one or not global) then
+      begin print_err("Inhibit table is full!!");
+      help1("I'm skipping this control sequences.");@/
+      error; end;
+    return;
+    end;
   define(inhibit_xsp_code_base+j,cur_val,n);
   end
 else
@@ -6369,13 +6371,15 @@ assign_kinsoku:
 begin p:=cur_chr; scan_int; n:=cur_val; scan_optional_equals; scan_int;
 if is_char_ascii(n) or is_char_kanji(n) then
   begin j:=get_kinsoku_pos(tokanji(n),new_pos);
-  if (j<>no_entry)and(cur_val=0) then define(kinsoku_base+j,0,0)
-    { remove the entry from KINSOKU table }
+  if (j<>no_entry)and(cur_val=0)and(global or cur_level=level_one) then
+    define(kinsoku_base+j,0,0) { remove the entry from KINSOKU table }
   else begin
-    if j=no_entry then
-      begin print_err("KINSOKU table is full!!");
-      help1("I'm skipping this control sequences.");@/
-      error; return;
+    if j=no_entry then begin
+      if (cur_val<>0) and not(cur_level=level_one or not global) then
+        begin print_err("KINSOKU table is full!!");
+        help1("I'm skipping this control sequences.");@/
+        error; end;
+      return;
       end;
     if (p=pre_break_penalty_code)or(p=post_break_penalty_code) then
       begin define(kinsoku_base+j,p,tokanji(n));