 
 (or (assq 'svn-blame-mode minor-mode-map-alist)
     (setq minor-mode-map-alist
-	  (cons (cons 'svn-blame-mode svn-blame-mode-map) minor-mode-map-alist)))
+          (cons (cons 'svn-blame-mode svn-blame-mode-map) minor-mode-map-alist)))
 
 (make-variable-buffer-local 'svn-blame-mode)
 

        (setq full-file-name (svn-match-string-no-properties 1))))
    (when (string= checkout-prefix-path "")
      (setq checkout-prefix-path "/"))
    (setq file-name
          (if (eq (string-match (regexp-quote (substring checkout-prefix-path 1)) full-file-name) 0)
              (substring full-file-name (- (length checkout-prefix-path) (if (string= checkout-prefix-path "/") 1 0)))
            full-file-name))
    ;; (message "svn-log-file-name-at-point %s prefix: '%s', full-file-name: %s" file-name checkout-prefix-path full-file-name)
    file-name))

(defun svn-log-find-file-at-point ()
  (interactive)

                  (run-hooks 'svn-log-edit-done-hook)
                  (setq svn-status-files-to-commit nil
                        svn-status-recursive-commit nil)
                  (if (null svn-status-commit-rev-number)
                      (message "No revision to commit.")
                    (message "svn: Committed revision %s." svn-status-commit-rev-number)))
                 ((eq svn-process-cmd 'update)
                  (svn-status-show-process-output 'update t)
                  (setq svn-status-update-list (svn-status-parse-update-output))
