       (svn-status-line-info->set-localrev line-info svn-status-commit-rev-number)
       (svn-status-line-info->set-lastchangerev line-info svn-status-commit-rev-number))
     (cond ((equal action 'committed)
-           (setq tag-string " <committed>"))
+           (setq tag-string " <committed>")
+           (when (member (svn-status-line-info->repo-locked line-info) '(?K))
+             (svn-status-line-info->set-repo-locked line-info nil)))
           ((equal action 'added)
            (setq tag-string " <added>"))
           ((equal action 'deleted)

The result will be nil or \"S\"."
  (nth 10 line-info))
(defun svn-status-line-info->repo-locked (line-info)
  "Return whether LINE-INFO is switched relative to its parent.
This is column six of the output from `svn status'.
The result will be \"K\", \"O\", \"T\", \"B\" or nil."
  (nth 11 line-info))


(defun svn-status-line-info->set-lastchangerev (line-info value)
  (setcar (nthcdr 5 line-info) value))

(defun svn-status-line-info->set-repo-locked (line-info value)
  (setcar (nthcdr 11 line-info) value))

(defun svn-status-copy-filename-as-kill (arg)
  "Copy the actual file name to the kill-ring.
