make test backtraces smaller -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2010-03-06 Ben Wing <ben@xemacs.org> * test-harness.el: * test-harness.el (test-harness-backtrace): New. * test-harness.el (test-harness-assertion-failure-do-debug): * test-harness.el (test-harness-unexpected-error-do-debug): Use the print settings from edebug.el to make backtraces not be so huge.

while (<STDIN>) {
  if (/^\$Revision:\s*([0-9\.]*)/) {
    print "char *version = \"$1\";\n";
    print "static char *id = \"\\n%%% setup-version $1\\n\";\n";
  }
}