   ;; XEmacs allows simultaneous connections to multiple devices with
   ;; different keyboards.
   (define-key svn-status-mode-map
-              (if (member (kbd "DEL") '([(delete)] [delete]))
-                  [(backspace)]         ; XEmacs
-                (kbd "DEL"))            ; GNU Emacs
-              'svn-status-unset-user-mark-backwards)
+    (if (member (kbd "DEL") '([(delete)] [delete]))
+        [(backspace)]         ; XEmacs
+      (kbd "DEL"))            ; GNU Emacs
+    'svn-status-unset-user-mark-backwards)
   (define-key svn-status-mode-map (kbd "$") 'svn-status-toggle-elide)
   (define-key svn-status-mode-map (kbd "w") 'svn-status-copy-current-line-info)
   (define-key svn-status-mode-map (kbd ".") 'svn-status-goto-root-or-return)

                svn-switched-mark (elt svn-marks 4)     ; 5th column - S,X or blank
                svn-repo-locked-mark (elt svn-marks 5)) ; 6th column - K,O,T,B or blank
          (when svn-status-remote
              (setq svn-update-mark (elt svn-marks 7))) ; 8th column - * or blank
          (when (eq svn-property-mark ?\ )     (setq svn-property-mark nil))
          (when (eq svn-wc-locked-mark ?\ )    (setq svn-wc-locked-mark nil))
          (when (eq svn-with-history-mark ?\ ) (setq svn-with-history-mark nil))

        (len-test)
        (elided-list)
        (elide-mark))
    (when svn-status-elided-list
      (while st-info
        (setq fname (svn-status-line-info->filename (car st-info)))
        (setq len-fname (length fname))
        (setq elided-list svn-status-elided-list)
        (setq elide-mark nil)
        (while elided-list
          (setq test (car elided-list))
          (when (string= test ".")
            (setq test ""))
          (setq len-test (length test))
          (when (and (>= len-fname len-test)
                     (string= (substring fname 0 len-test) test))
            (setq elide-mark t)
            (when (or (string= fname ".")
                      (and (= len-fname len-test) (svn-status-line-info->directory-p (car st-info))))
              (setq elide-mark 'directory)))
          (setq elided-list (cdr elided-list)))
        ;;(message "fname: %s elide-mark: %S" fname elide-mark)
        (setcar (nthcdr 1 (svn-status-line-info->ui-status (car st-info))) elide-mark)
        (setq st-info (cdr st-info)))))
  (svn-status-update-buffer))

(defun svn-status-update-with-command-list (cmd-list)
