   "Actually run svn mv or svn cp.
 This is just to prevent duplication in `svn-status-prompt-and-act-on-files'"
   (if force
-      (svn-run nil t (intern command) command "--force" "--" original-name dest)
-    (svn-run nil t (intern command) command "--" original-name dest))
+      (svn-run nil t (intern command) command "--force" "--" original destination)
+    (svn-run nil t (intern command) command "--" original destination))
 ;;;TODO: use something like the following instead of calling svn-status-update
 ;;;      at the end of svn-status-mv-cp.
 ;;   (let ((output (svn-status-parse-ar-output))


(when (not svn-status-diff-mode-map)
  (setq svn-status-diff-mode-map (copy-keymap diff-mode-shared-map))
  (define-key svn-status-diff-mode-map [?g] 'svn-status-diff-update)
  (define-key svn-status-diff-mode-map [?s] 'svn-status-pop-to-status-buffer)
  (define-key svn-status-diff-mode-map [?w] 'svn-status-diff-save-current-defun-as-kill))


"
  (let ((diff-mode-shared-map (copy-keymap svn-status-diff-mode-map))
        major-mode mode-name)
    (diff-mode)
    (setq revert-buffer-function 'svn-status-diff-update)))

(defun svn-status-diff-update (arg noconfirm)
  "Rerun the last svn diff command and update the *svn-diff* buffer."
  (interactive)
  (svn-status-save-some-buffers)
