     (delete-region (point-min) (point-max))
     (setq default-directory dir)
     (insert prop-value)
+    (svn-status-remove-control-M)
     (when new-prop-value
       (when (listp new-prop-value)
         (message "Adding new prop values %S " new-prop-value)

                                               ;;file-svn-info
          (next-line 1)))))

(condition-case nil
    ;;(easy-menu-add-item nil '("tools") ["SVN Status" svn-status t] "PCL-CVS")
    (easy-menu-add-item nil '("tools") ["SVN Status" svn-status t])

                ((eq svn-process-cmd 'propset)
                 (svn-status-update))
                ((eq svn-process-cmd 'propdel)
                 (svn-status-update))))
          ;;(message "svn-process had event: %s" event))
      ;;(message (format "SVN Error: :%s:" event))
      (svn-status-show-process-buffer-internal t))))

