   (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))
+  (svn-status-update-buffer))
 
 (defun svn-status-set-trac-project-root ()
   (interactive)

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

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

        (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))
