                                             local-rev
                                             last-change-rev
                                             author
-                                            svn-update-mark)
+                                            svn-update-mark
+                                            svn-locked-mark
+                                            svn-with-history-mark
+                                            svn-switched-mark)
                                       svn-status-info))
           (setq revision-width (max revision-width
                                     (length (number-to-string local-rev))

          ;;(message "%S %S" action name)
          (setq result (cons (list name action)
                             result))
          (forward-line 1)
          (goto-char (point-at-bol))))
      result)))
;; (svn-status-parse-commit-output)

(defun svn-status-line-info->directory-p (line-info)
  "Return t if LINE-INFO refers to a directory, nil otherwise.

      (setq svn-status-default-column
            (+ 6 revision-width revision-width author-width
               (if svn-status-short-mod-flag-p 3 0)))
      (setq svn-status-line-format (format " %%c%%c%%c %%%ds %%%ds %%-%ds"
                                           revision-width
                                           revision-width
                                           author-width))
