         (first-line t)
         (fname (svn-status-line-info->filename (svn-status-get-line-information)))
         (fname-pos (point))
+        (window-line-pos (svn-status-window-line-position))
         (header-line-string)
         (column (current-column)))
     (delete-region (point-min) (point-max))

  (loop for item in list
        if (listp item) nconc (svn-status-flatten-list item)
        else collect item))

;;;###autoload
(defun svn-checkout (repos-url path)

  (setq svn-status-display-full-path (not svn-status-display-full-path))
  (message "The %s buffer will%s use full path names." svn-status-buffer-name
           (if svn-status-display-full-path "" " not"))
  (svn-status-update-buffer))

(defun svn-status-set-trac-project-root ()
  (interactive)
