   (interactive)
   ;(message (format "buffer-name: %s" (buffer-name)))
   (unless (string= (buffer-name) "*svn-status*")
-    (delete-other-windows)
-    (split-window-vertically)
-    (switch-to-buffer "*svn-status*"))
+    ;;(delete-other-windows)
+    ;;(split-window-vertically)
+    ;;(switch-to-buffer "*svn-status*")
+    (set-buffer "*svn-status*"))
   (svn-status-mode)
   (let ((st-info svn-status-info)
         (buffer-read-only nil)

                                           revision-width
                                           revision-width
                                           author-width))
      (when svn-status-sort-status-buffer
        (setq svn-status-info (sort svn-status-info 'svn-status-sort-predicate))))))


                   (if svn-status-sort-status-buffer "" " not")
                   " sorted.")))

;; --------------------------------------------------------------------------------
;; svn status profiling
;; --------------------------------------------------------------------------------
;;; Note about profiling psvn:
;;  (load-library "elp")
;;  M-x elp-reset-all
;;  (elp-instrument-package "svn-")
;;  M-x svn-status
;;  M-x elp-results

(defun svn-status-elp-init ()
  (interactive)
  (require 'elp)
  (elp-reset-all)
  (elp-instrument-package "svn-")
  (message "Run the desired svn command (e.g. M-x svn-status), then use M-x elp-results."))


(provide 'psvn)

