 
 (unless (assq 'svn-blame-mode minor-mode-alist)
   (setq minor-mode-alist
-	(cons (list 'svn-blame-mode " SvnBlame")
-          minor-mode-alist)))
+        (cons (list 'svn-blame-mode " SvnBlame")
+              minor-mode-alist)))
 
 (defvar svn-blame-mode-map () "Keymap used in `svn-blame-mode' buffers.")
 (put 'svn-blame-mode-map 'risky-local-variable t) ;for Emacs 20.7

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


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

(make-variable-buffer-local 'svn-blame-mode)

