 ;;              ;; run  svn-status-set-user-mark   to remark dir
 ;;              ;; maybe check for local mods here, and unmark if user does't say --force?
 ;;              ))
-        (dolist (original marked-files)
+    (dolist (original marked-files)
       (let ((original-name (svn-status-line-info->filename original))
-                        (original-filemarks (svn-status-line-info->filemark original))
-                        (original-propmarks (svn-status-line-info->propmark original)))
+            (original-filemarks (svn-status-line-info->filemark original))
+            (original-propmarks (svn-status-line-info->propmark original)))
         (cond
          ((or (eq original-filemarks 77)  ;;original has local mods: maybe do `svn mv --force'
               (eq original-propmarks 77)) ;;original has local prop mods: maybe do `svn mv --force'

    (defalias 'puthash 'cl-puthash))

; xemacs
(if (fboundp 'match-string-no-properties)
    nil ;; great
  (defsubst match-string-no-properties (match)
    (buffer-substring-no-properties (match-beginning match) (match-end match))))

(defvar svn-global-keymap nil "Global keymap for psvn.el.
To bind this to a different key, customize `svn-status-prefix-key'.")

  (interactive)
  (let* ((marked-files (svn-status-marked-files))
         (num-of-files (length marked-files))
         dest)
    (if (= 1 num-of-files)
        ;; one file to rename, prompt for new name, or directory to move the
