           (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 8 (car st-info)) 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))
 

  (interactive)
  (let ((st-info svn-status-info))
    (while st-info
      (setcar (car st-info) nil)
      (setq st-info (cdr st-info)))
    (svn-status-update-buffer)))


         (i-fname)
         (current-line svn-start-of-file-list-line-number))
    (while st-info
      (when (svn-status-line-info->is-visiblep (car st-info))
        (setq current-line (1+ current-line)))
      (setq i-fname (svn-status-line-info->filename (car st-info)))
      (when (and (>= (length i-fname) (length file-name))
                 (string= file-name (substring i-fname 0 (length file-name))))
