 
 See `svn-status-marked-files' for what counts as selected."
   (interactive "P")
-  (let ((switches (cond ((eq arg 0)  '())
-                        ((or (eq arg -1) (eq arg '-)) '("-q"))
-                        (arg         '("-v"))
-                        (t           svn-status-default-log-arguments)))
+  (let ((switches (svn-status-svn-log-switches arg))
         (svn-status-get-line-information-for-file t))
     ;; (message "svn-status-show-svn-log %S" arg)
     (svn-status-create-arg-file svn-status-temp-arg-file "" (svn-status-marked-files) "")
-    (svn-run t t 'log "log" "--targets" svn-status-temp-arg-file switches)
-    (save-excursion
-      (set-buffer svn-process-buffer-name)
-      (svn-log-view-mode))))
+    (svn-run t t 'log "log" "--targets" svn-status-temp-arg-file switches)))
 
 (defun svn-status-version ()
   "Show the version numbers for psvn.el and the svn command line client.

                  '("SvnBlame"
                    ["Jump to source location" svn-blame-open-source-file t]
                    ["Show changeset" svn-blame-show-changeset t]
                    ["Highlight by author" svn-blame-highlight-author t]
                    ["Highlight by revision" svn-blame-highlight-revision t]))


            (other-window 1))
        (svn-status-show-process-buffer-internal scroll-to-top)))))

(defun svn-status-svn-log-switches (arg)
  (cond ((eq arg 0)  '())
        ((or (eq arg -1) (eq arg '-)) '("-q"))
        (arg         '("-v"))
        (t           svn-status-default-log-arguments)))

(defun svn-status-show-svn-log (arg)
  "Run `svn log' on selected files.
The output is put into the *svn-log* buffer
