   (svn-status-update-buffer))
 
 (defun svn-status-goto-file-name (name)
+  ;; (message "svn-status-goto-file-name: %s %d" name (point))
   (let ((start-pos (point)))
     (goto-char (point-min))
     (while (< (point) (point-max))

(defun svn-parse-status-result ()
  (setq svn-status-head-revision nil)
  (save-excursion
    (let ((old-marked-files (svn-status-marked-file-names))
          (line-string)
          (user-mark)
          (svn-marks)

    (setq svn-start-of-file-list-line-number (+ (count-lines (point-min) (point)) 1))
    (if fname
        (progn
          (goto-char fname-pos)
          (svn-status-goto-file-name fname)
          (goto-char (+ column (point-at-bol))))
      (goto-char (+ (next-overlay-change (point-min)) svn-status-default-column)))))
