   (svn-status-update-mode-line))
 
 (defun svn-status-goto-root-or-return ()
+  "Bounce point between the root (\".\") and the current line."
   (interactive)
   (if (string= (svn-status-line-info->filename (svn-status-get-line-information)) ".")
       (when svn-status-root-return-info

      info)))

(defun svn-status-marked-files ()
  (let* ((st-info svn-status-info)
         (file-list))
    (while st-info

  "psvn faces."
  :group 'psvn)


(eval-and-compile
  (defconst svn-xemacsp (featurep 'xemacs))
