;;;; tracemonkey utilities

(defun tm-find ()
  (interactive)
  (block search
    (while (re-search-forward "^recording starting from.*jquery.js" nil t)
      (let ((end (save-excursion
                   (or (re-search-forward "^recording starting from" nil t)
                       (goto-char (point-max)))
                   (beginning-of-line)
                   (point))))
        (save-excursion
          (if (re-search-forward "^compiling" end t)
              (return-from search nil)))))
    (error "didn't find compiled trace")))