 (defvar svn-status-options nil)
 (defvar svn-status-commit-rev-number nil)
 (defvar svn-status-operated-on-dot nil)
+(defvar svn-status-elided-list nil)
 
 ;;; faces
 (defface svn-status-marked-face

    (delete-region (point-min) (point-max))
    (setq svn-status-options
          (list
           (list "sort-status-buffer" svn-status-sort-status-buffer)))
    (insert (pp-to-string svn-status-options))
    (save-buffer)
    (kill-buffer buf)))

        (len-fname)
        (new-elide-mark t)
        (elide-mark))
    (if (member test svn-status-elided-list)
        (setq svn-status-elided-list (delete test svn-status-elided-list))
      (add-to-list 'svn-status-elided-list test))
    (when (string= test ".")
      (setq test ""))
    (setq len-test (length test))
