 
 (defun svn-status-diff-mode ()
   "Show the *svn-process* buffer, using the diff-mode."
-  (svn-status-show-process-buffer-internal t)
+  (svn-status-show-process-output 'diff t)
   (save-excursion
-    (set-buffer "*svn-process*")
+    (set-buffer svn-status-last-output-buffer-name)
     (diff-mode)
-    (font-lock-fontify-buffer)))
+    (font-lock-fontify-buffer)
+    (setq buffer-read-only t)))
 
 (defun svn-status-show-process-buffer ()
   (interactive)

                    (set-window-configuration svn-status-initial-window-configuration)
                    (switch-to-buffer "*svn-status*")))
                 ((eq svn-process-cmd 'log)
                  (svn-status-show-process-buffer-internal t)
                  (pop-to-buffer "*svn-process*")
                  (switch-to-buffer (get-buffer-create "*svn-log*"))
                  (let ((buffer-read-only nil))
                    (delete-region (point-min) (point-max))
                    (insert-buffer-substring "*svn-process*"))
                  (svn-log-view-mode)
                  (goto-char (point-min))
                  (forward-line 3)
                  (font-lock-fontify-buffer)
                  (message "svn log finished"))
                 ((eq svn-process-cmd 'info)
                  (svn-status-show-process-buffer-internal t)
                  (message "svn info finished"))
                 ((eq svn-process-cmd 'parse-info)
                  (svn-status-parse-info-result))
                 ((eq svn-process-cmd 'blame)
                  (svn-status-show-process-buffer-internal t)
                  (message "svn blame finished"))
                 ((eq svn-process-cmd 'commit)
                  (svn-process-sentinel-fixup-path-seperators)

                 ((eq svn-process-cmd 'cleanup)
                  (message "svn cleanup finished"))
                 ((eq svn-process-cmd 'proplist)
                  (svn-status-show-process-output 'proplist t)
                  (message "svn proplist finished"))
                 ((eq svn-process-cmd 'proplist-parse)
                  (svn-status-property-parse-property-names))
