               (svn-status-update-mode-line)))))
     (error "You can only run one svn process at once!")))
 
-(defun svn-process-sentinel-fixup-path-seperators()
+(defun svn-process-sentinel-fixup-path-seperators ()
+	"Convert all path separators to UNIX style.
+\(This is a no-op unless `system-type' is windows-nt\)"
   (when (eq system-type 'windows-nt)
-      ;; convert path separator to UNIX style
       (save-excursion
         (goto-char (point-min))
         (while (search-forward "\\" nil t)

    (((class color) (background light)) (:foreground "blue4"))
    (((class color) (background dark)) (:foreground "lightskyblue1"))
    (t (:weight bold)))
  "Face for directories in svn status buffers.
See `svn-status--line-info->directory-p' for what counts as a directory."
  :group 'psvn-faces)


  (mapcar 'svn-status-line-info->filename (svn-status-get-file-list use-marked-files)))

(defun svn-status-select-line ()
	"Return information about the file under point.
\(Only used for debugging\)"
  (interactive)
  (let ((info (svn-status-get-line-information)))
    (if info
