            (setq tag-string " <deleted>"))
           ((equal action 'replaced)
            (setq tag-string " <replaced>"))
+          ((equal action 'updated)
+           (setq tag-string " <updated>"))
           ((equal action 'propset)
            ;;(setq tag-string " <propset>")
            (svn-status-line-info->set-propmark line-info svn-status-file-modified-after-save-flag))

      result)))
;; (svn-status-parse-ar-output)
;; (svn-status-update-with-command-list (svn-status-parse-ar-output))

(defun svn-status-parse-property-output ()
  "Parse the output of svn propset.

          (svn-run t t 'rm "rm" "--force" "--targets" svn-status-temp-arg-file)
        (svn-run t t 'rm "rm" "--targets" svn-status-temp-arg-file)))))

(defun svn-status-update-cmd (arg)
  "Run svn update.
When called with a prefix argument, ask the user for the revision to update to."
  (interactive "P")
  (let ((rev (when arg (svn-status-read-revision-string (format "Directory: %s: Run svn update -r " default-directory)))))
    (message "Running svn-update for %s" default-directory)
    ;;TODO: use file names also??
    (svn-run t t 'update "update" (when rev (list "-r" rev)))))

(defun svn-status-commit ()
  "Commit selected files.
