     (delete-region (point-min) (point-max))
     (setq svn-status-options
           (list
-           (list "sort-status-buffer" svn-status-sort-status-buffer)))
+           (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)))

        (len-fname)
        (new-elide-mark t)
        (elide-mark))
    (when (string= test ".")
      (setq test ""))
    (setq len-test (length test))

          (insert-file-contents file)
          (setq svn-status-options (read (current-buffer)))
          (setq svn-status-sort-status-buffer
                (nth 1 (assoc "sort-status-buffer" svn-status-options)))
          (setq svn-status-elided-list
                (nth 1 (assoc "elide-list" svn-status-options)))
          (when svn-status-elided-list (svn-status-apply-elide-list)))
      (error "%s is not readable." file))
    (message "Loaded %s" file)))

