 ;;              ;; 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'

  (setq svn-status-head-revision nil)
  (save-excursion
    (let ((old-ui-information (svn-status-ui-information-hash-table))
          (line-string)
          (svn-marks)
          (svn-file-mark)
          (svn-property-mark)

    (defalias 'puthash 'cl-puthash))

; xemacs
;; Evaluate the defsubst at compile time, so that the byte compiler
;; knows the definition and can inline calls.  It cannot detect the
;; defsubst automatically from within the if form.
(eval-and-compile
  (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'.")
