// -*- ASCII:EDT -*-
// Find Glossaries

  IfisMode('INS','%!M',!'Release("File-glo");Exit;');
  IfisMode('DTX','%!M',!'Release("File-glo");Exit;');
  IfisMode('STY','%!M',!'Release("File-glo");Exit;');
  IfisMode('AUX','%!M',!'Release("File-glo");Exit;');

  PushTagsandRegisters;

  IfFileExists("%O\%N.aux",!"ReadFile('%O\%N.aux',9);",>
    !"Release(|File-glo|);PopTagsandRegisters;Exit;");
  FindInString("%!9","<\\\@newglossary\{\(0*\)\}\{\(1*\)\}\{\(2*\)\}\{\(3*\)\}",-11,-11,11);
  IfOK(!"Assign(|File-glo|,|%O\%N.%#3|);",!"Release(|File-glo|);");

  PopTagsandRegisters;

End;
