                     ["Show Changeset" svn-log-view-diff t]
                     ["Ediff file at point" svn-log-ediff-specific-revision t]
                     ["Find file at point" svn-log-find-file-at-point t]
+                    ["Mark as diff against revision" svn-log-mark-partner-revision t]
                     ["Get older revision for file at point" svn-log-get-specific-revision t]
                     ["Edit log message" svn-log-edit-log-entry t]))
 

  "Show the changeset for a given log entry.
When called with a prefix argument, ask the user for the revision."
  (interactive "P")
  (svn-status-diff-show-changeset (svn-log-revision-at-point) arg))

(defun svn-log-get-specific-revision ()
  "Get an older revision of the file at point via svn cat."

  (interactive "P")
  ;; (message "svn-log-ediff-specific-revision: %s" (svn-log-file-name-at-point t))
  (let* ((cur-buf (current-buffer))
         (diff-rev (svn-log-revision-for-diff))
         (upper-rev (if diff-rev
                        diff-rev
                      (svn-log-revision-at-point)))
         (lower-rev (if diff-rev
                        (svn-log-revision-at-point)
                      (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)
