   (define-key svn-log-view-mode-map (kbd "~") 'svn-log-get-specific-revision)
   (define-key svn-log-view-mode-map (kbd "E") 'svn-log-ediff-specific-revision)
   (define-key svn-log-view-mode-map (kbd "=") 'svn-log-view-diff)
+  (define-key svn-log-view-mode-map (kbd "#") 'svn-log-mark-partner-revision)
+  (define-key svn-log-view-mode-map (kbd "x") 'svn-log-exchange-partner-mark-with-point)
   (define-key svn-log-view-mode-map (kbd "TAB") 'svn-log-next-link)
   (define-key svn-log-view-mode-map [backtab] 'svn-log-prev-link)
   (define-key svn-log-view-mode-map (kbd "RET") 'svn-log-find-file-at-point)

  (interactive "P")
  ;; (message "svn-log-ediff-specific-revision: %s" (svn-log-file-name-at-point t))
  (let* ((cur-buf (current-buffer))
         (upper-rev (svn-log-revision-at-point))
         (lower-rev (number-to-string (- (string-to-number upper-rev) 1)))
         (file-name (svn-log-file-name-at-point t))
         (default-directory (svn-status-base-dir))
         (upper-rev-file-name)

  (defface svn-status-blame-highlight-face
    '((t :inherit highlight))
    "Default face for highlighting a line in svn status blame mode."
    :group 'psvn-faces))

(if svn-xemacsp
    (defface svn-log-partner-highlight-face
      '((((type tty) (class color)) (:foreground "yellow" :weight light))
        (((class color) (background light)) (:foreground "gold"))
        (((class color) (background dark)) (:foreground "gold"))
        (t (:weight bold)))
      "Default face for highlighting the partner in svn log mode."
      :group 'psvn-faces)
  (defface svn-log-partner-highlight-face
  '((((class color) (background light))
     (:background "light goldenrod" :weight bold))
    (t (:weight bold)))
    "Default face for highlighting the partner in svn log mode."
    :group 'psvn-faces))

(defface svn-status-blame-rev-number-face
