(let ((file2 (expand-file-name (match-string 0) root)))
                (when (equal file2 file)

              (let* ((line (match-string 0))
                     (file2 (expand-file-name line root)))
                (when (or
                       (equal file2 file)
                       (equal line "darcs: can't mix match and pending flags"))

              (if (looking-at "^Rebase in progress:")
                  (forward-line 1))