 ;; P k   - svn-status-property-set-keyword-list
 ;; P y   - svn-status-property-set-eol-style
 ;; P x   - svn-status-property-set-executable
-;; h     - svn-status-use-history
+;; H     - svn-status-use-history
 ;; x     - svn-status-update-buffer
 ;; q     - svn-status-bury-buffer
 

(when (not svn-info-mode-map)
  (setq svn-info-mode-map (make-sparse-keymap))
  (define-key svn-info-mode-map [?s] 'svn-status-pop-to-status-buffer)
  (define-key svn-info-mode-map (kbd "RET") 'svn-info-show-context)
  (define-key svn-info-mode-map [?q] 'bury-buffer))


  (interactive)
  (svn-status-show-process-output nil))

(defun svn-status-pop-to-partner-buffer ()
  "Pop to the `svn-status-partner-buffer' if that variable is set."
  (interactive)
  (when svn-status-partner-buffer
    (let ((cur-buf (current-buffer)))
      (pop-to-buffer svn-status-partner-buffer)
      (setq svn-status-partner-buffer cur-buf))))

(defun svn-status-pop-to-new-partner-buffer (buffer)
  "Call `pop-to-buffer' and register the current buffer as partner buffer for BUFFER."
  (let ((cur-buf (current-buffer)))
    (pop-to-buffer buffer)
    (setq svn-status-partner-buffer cur-buf)))

(defun svn-status-add-file-recursively (arg)
  "Run `svn add' on all selected files.
When a directory is added, add files recursively.
