   "Strip the version info from a psvn revision file name."
   (string-match "\\(.+\\)\\.~.+~" name)
   (or (match-string-no-properties 1 name) name))
-
-(defun svn-revision-normal-mode ()
-  "Run normal-mode in a svn revision file."
-  (interactive)
-  (flet ((file-name-sans-versions
-          (name &optional keep-backup-version)
-          (svn-status-file-name-sans-versions name keep-backup-version)))
-    (normal-mode)))
-  
 
 (condition-case nil
     ;;(easy-menu-add-item nil '("tools") ["SVN Status" svn-status t] "PCL-CVS")

        (find-file file-name-with-revision)
        (setq buffer-read-only nil)
        (delete-region (point-min) (point-max))
        (svn-revision-normal-mode)
        (svn-run-svn nil t 'cat (append (list "cat" "-r" revision) (list file-name)))
        ;;todo: error processing
        ;;svn: Filesystem has no item

  (if svn-xemacsp
      (require 'overlay)
    (require 'overlay nil t)))

;; Use the normally used mode for files ending in .~HEAD~, .~BASE~, ...
(add-to-list 'auto-mode-alist '("\\.~?\\(HEAD\\|BASE\\|PREV\\)~?\\'" ignore t))

;;; internal variables
(defvar svn-process-cmd nil)
