    (when (boundp 'temp-directory) temp-directory)                     ;xemacs
    "/tmp/"))
 (defvar svn-status-temp-arg-file (concat svn-status-temp-dir "svn.arg"))
-(defconst svn-xemacsp (featurep 'xemacs))
 
 ;; faces
 (defface svn-status-marked-face

  (setq svn-status-mode-map (make-sparse-keymap))
  (define-key svn-status-mode-map [return] 'svn-status-select-line)
  (define-key svn-status-mode-map [?s] 'svn-status-show-process-buffer)
  (define-key svn-status-mode-map [?o] 'svn-status-find-file-other-window)
  (define-key svn-status-mode-map [?e] 'svn-status-toggle-edit-cmd-flag)
  (define-key svn-status-mode-map [?g] 'svn-status-update)


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