   (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 "svn-status-cleanup %S" file-names))
          (svn-run-svn t t 'cleanup (append (list "cleanup") file-names)))
      (message "No valid file selected - No status cleanup possible"))))
;; --------------------------------------------------------------------------------
;; Property List stuff
;; --------------------------------------------------------------------------------

  (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))
