           (last-change-rev)
           (author)
           (path)
+          (dir)
           (user-elide nil)
           (ui-status '(nil nil))     ; contains (user-mark user-elide)
           (revision-width svn-status-default-revision-width)

    -1))


(defun svn-status-make-dummy-dirs (dir-list)
  (append (mapcar (lambda (dir)
                    (list ui-status 32 nil dir -1 -1 "?" nil nil nil nil))
                  dir-list)
          svn-status-info))


        (len-fname)
        (test)
        (len-test)
        (elided-list)
        (elide-mark))
    (while st-info
      (setq fname (svn-status-line-info->filename (car st-info)))
