                 (nth 1 (assoc "svn-trac-project-root" svn-status-options)))
           (setq svn-status-elided-list
                 (nth 1 (assoc "elide-list" svn-status-options)))
+          (setq svn-status-module-name
+                (nth 1 (assoc "module-name" svn-status-options)))
           (when svn-status-elided-list (svn-status-apply-elide-list)))
       (error "%s is not readable." file))
     (message "Loaded %s" file)))

  (interactive)
  ;(message (format "buffer-name: %s" (buffer-name)))
  (unless (string= (buffer-name) "*svn-status*")
    ;;(delete-other-windows)
    ;;(split-window-vertically)
    ;;(switch-to-buffer "*svn-status*")
    (set-buffer "*svn-status*"))
  (svn-status-mode)
  (let ((st-info svn-status-info)

      (cond ((svn-status-line-info->has-usermark (car st-info))
             ;; Show a marked file always
             (svn-insert-line-in-status-buffer (car st-info)))
            ((svn-status-line-info->update-available (car st-info))
             (svn-insert-line-in-status-buffer (car st-info)))
            ((svn-status-line-info->hide-because-user-elide (car st-info))
             (setq user-elide-count (1+ user-elide-count)))
            ((svn-status-line-info->hide-because-unknown (car st-info))
