 (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

          (message "Elide directory %s and all its files." fname)
          (setq new-elide-mark (not (svn-status-line-info->user-elide (car st-info))))
          (setq elide-mark (if new-elide-mark 'directory nil)))
        (setcar (nthcdr 1 (svn-status-line-info->ui-status (car st-info))) elide-mark))
      (setq st-info (cdr st-info))))
  (svn-status-update-buffer))


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