   (interactive)
   (kill-all-local-variables)
   (use-local-map svn-prop-edit-mode-map)
+  (easy-menu-add svn-prop-edit-mode-menu)
   (setq major-mode 'svn-prop-edit-mode)
   (setq mode-name "svn-prop-edit"))
 

      ;;(message (format "SVN Error: :%s:" event))
      (svn-status-show-process-buffer-internal t))))

(defun svn-parse-status-result ()
  (setq svn-status-head-revision nil)
  (save-excursion
    (let ((old-marked-files (svn-status-marked-file-names))
          (line-string)
          (user-mark)
          (file-svn-info)
          (svn-file-mark)
          (svn-property-mark)
          (local-rev)
          (last-change-rev)
          (modified-external)
          (author)
          (path))
      (set-buffer "*svn-process*")
      (setq svn-status-info nil)
      (goto-char (point-min))
      (while (> (- (point-at-eol) (point-at-bol)) 0)
        (setq modified-external nil)
        (setq line-string (buffer-substring-no-properties
                           (point-at-bol)
                           (point-at-eol)))
        (if (string-match "Head revision:[ ]+\\([0-9]+\\)" line-string)
            (setq svn-status-head-revision (match-string 1 line-string))
          (setq file-svn-info (append (list (substring line-string 0 4))
                                      (if svn-xemacsp
                                          (cdr (split-string (substring line-string 5)))
                                        (split-string (substring line-string 5)))))
          (when (string= (nth 1 file-svn-info) "*")
            (setq modified-external t)
            ; remove the (nth 1) entry
            (setq file-svn-info (append
                                 (list (car file-svn-info))
                                 ; nth 1 removed
                                 (cddr file-svn-info))))
          (setq svn-file-mark (string-to-char (car file-svn-info)))
          (setq svn-property-mark (string-to-char (substring (car file-svn-info) 1)))
          (when (eq svn-property-mark 0) (setq svn-property-mark nil))
          ;is this necessary?
          (when (eq svn-property-mark ?\ ) (setq svn-property-mark nil))
          (cond ((eq svn-file-mark ??)
                 (setq path (nth 1 file-svn-info)
                       local-rev -1
                       last-change-rev -1
                       author "?"))
                (t
                 (setq path (nth 4 file-svn-info)
                       local-rev (string-to-number (nth 1 file-svn-info))
                       last-change-rev (string-to-number (nth 2 file-svn-info))
                       author (nth 3 file-svn-info))))
          (unless path (setq path "."))
          (setq user-mark (not (not (member path old-marked-files))))
          (setq svn-status-info (append svn-status-info
                                        (list
                                         (list user-mark
                                               svn-file-mark
                                               svn-property-mark
                                               path
                                               local-rev
                                               last-change-rev
                                               author
                                               modified-external)))))
                                               ;;file-svn-info
          (next-line 1)))))

(defun svn-status-remove-control-M ()
  "Remove ^M at end of line in the whole buffer."

  (when (eq (current-buffer) "*svn-status*")
    (delete-other-windows))
  (pop-to-buffer "*svn-process*")
  (when svn-status-wash-control-M-in-process-buffers
    (svn-status-remove-control-M))
  (when scroll-to-top
    (goto-char (point-min)))
  (other-window 1))
