           (setq new-prop-value (cdr new-prop-value)))))
     (svn-prop-edit-mode)))
 
+(defun svn-status-property-set-property (file-info-list prop-name prop-value)
+  "Set a property on a given file list."
+  (save-excursion
+    (set-buffer (get-buffer "*svn-property-edit*"))
+    (delete-region (point-min) (point-max))
+    (insert prop-value))
+  (setq svn-status-propedit-file-list (svn-status-marked-files))
+  (setq svn-status-propedit-property-name prop-name)
+  (svn-prop-edit-do-it nil)
+  (svn-status-update))
+
+
 (defun svn-status-get-directory (line-info)
   (let* ((file-name (svn-status-line-info->filename line-info))
          (file-dir (file-name-directory file-name)))

;; P I   - svn-status-property-ignore-file-extension
;; P C-i - svn-status-property-edit-svn-ignore
;; P k   - svn-status-property-set-keyword-list
;; h     - svn-status-use-history
;; q     - svn-status-bury-buffer


  P I   - svn-status-property-ignore-file-extension
  P C-i - svn-status-property-edit-svn-ignore
  P k   - svn-status-property-set-keyword-list
  P y   - svn-status-property-set-eol-style
  h     - svn-status-use-history
  q     - svn-status-bury-buffer"
  (interactive)
