       (insert str)
       (goto-char svn-output-marker)
       (while (cond ((looking-at
-                     "\\([ ACDGIMRX?!~][ CM][ L][ +][ S][ KOTB]\\) \\(.*\\)\n")
+                     "\\([ ACDGIMRX?!~][ CM][ L][ +][ S][ KOTB]\\)[ C]? \\([^ ].*\\)\n")
                     (let ((status (match-string 1))
                           (filename (match-string 2)))
                       (delete-region (match-beginning 0)

    (apply 'call-process svn-program nil buf nil (symbol-name command) args)
    buf))

(defun svn-run-predicate (command args)
  "Run `svn', discarding output, returning t if it succeeded (exited with
status zero).
Argument COMMAND is the svn subcommand to run.
Optional argument ARGS is a list of arguments."
  (zerop
   (apply 'call-process svn-program nil nil nil (symbol-name command) args)))

(defun svn-output-filter (proc str)
  "Output filter for svn output.

  ;; First retrieve the property names, and then the value of each.
  ;; We can't use proplist -v because is output is ambiguous when values
  ;; consist of multiple lines.
  (if (string-equal (svn-run-for-stdout 'info (list file)) "")
    (error "%s is not under version control" file))
  (let (propnames)
    (with-current-buffer (svn-run-hidden 'proplist (list file))
