      ["Edit svn:ignore Property" svn-status-property-edit-svn-ignore t]
      "---"
      ["Edit svn:keywords List" svn-status-property-set-keyword-list t]
+     ["Add/Remove Id to/from svn:keywords" svn-status-property-set-keyword-id t]
+     ["Add/Remove Date to/from svn:keywords" svn-status-property-set-keyword-date t]
+     "---"
      ["Select svn:eol-style" svn-status-property-set-eol-style t]
      ["Set svn:executable" svn-status-property-set-executable t]
      ["Set svn:mime-type" svn-status-property-set-mime-type t]

  (define-key svn-status-mode-property-map [(control ?i)] 'svn-status-property-edit-svn-ignore)
  (define-key svn-status-mode-property-map (kbd "TAB") 'svn-status-property-edit-svn-ignore)
  (define-key svn-status-mode-property-map (kbd "k") 'svn-status-property-set-keyword-list)
  (define-key svn-status-mode-property-map (kbd "y") 'svn-status-property-set-eol-style)
  (define-key svn-status-mode-property-map (kbd "x") 'svn-status-property-set-executable)
  (define-key svn-status-mode-property-map (kbd "m") 'svn-status-property-set-mime-type)

    (svn-status-remove-control-M)
    (when new-prop-value
      (when (listp new-prop-value)
        (if remove-values
            (message "Remove prop values %S " new-prop-value)
          (message "Adding new prop values %S " new-prop-value))
        (while new-prop-value
          (goto-char (point-min))
          (if (re-search-forward (concat "^" (regexp-quote (car new-prop-value)) "$") nil t)
              (when remove-values
                (kill-whole-line 1))
            (unless remove-values
              (goto-char (point-max))
              (when (> (current-column) 0) (insert "\n"))
              (insert (car new-prop-value))))
          (setq new-prop-value (cdr new-prop-value)))))
    (svn-prop-edit-mode)))

