!7

sclass MyParser extends org.fife.ui.rsyntaxtextarea.parser.AbstractParser {
  @Override
  public ParseResult parse(RSyntaxDocument doc, String style) {
    ret new DefaultParseResult;
  }
}

p-exp {
  RSyntaxTextAreaWithSearch ta = rSyntaxTextAreaWithSearch();
  ta.menuLessOperation();
  new MyParser parser;
  ta.textArea().addParser(parser);
  showFrame(ta);
}