                                            revision-width
                                            revision-width
                                            author-width))
+      (setq svn-status-info (nreverse svn-status-info))
       (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.")))


(provide 'psvn)


  (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*")
    (set-buffer "*svn-status*"))
  (svn-status-mode)
  (let ((st-info svn-status-info)
        (buffer-read-only nil)
