   (set-buffer "*svn-status*")
   (svn-status-show-svn-diff-for-marked-files arg))
 
-(defun svn-prop-edit-svn-log ()
-  (interactive)
+(defun svn-prop-edit-svn-log (arg)
+  (interactive "P")
   (set-buffer "*svn-status*")
-  (svn-status-show-svn-log))
+  (svn-status-show-svn-log arg))
 
 (defun svn-prop-edit-svn-status ()
   (interactive)

  (define-key svn-status-mode-property-map [?I] 'svn-status-property-ignore-file-extension)
  (define-key svn-status-mode-property-map [(control ?i)] 'svn-status-property-edit-svn-ignore)
  (define-key svn-status-mode-property-map [?k] 'svn-status-property-set-keyword-list)
  (define-key svn-status-mode-property-map [?p] 'svn-status-property-parse)
  (define-key svn-status-mode-property-map [return] 'svn-status-select-line)
  (define-key svn-status-mode-map [?P] svn-status-mode-property-map))



(defun svn-status-property-set-keyword-list ()
  "Edit the svn:keywords property on the marked files."
  (interactive)
  ;;(message "Set svn:keywords for %S" (svn-status-marked-file-names))
  (svn-status-property-edit (svn-status-marked-files) "svn:keywords"))

(defun svn-status-property-set-eol-style ()
  "Edit the svn:eol-style property on the marked files."
  (interactive)
  (svn-status-property-set-property
   (svn-status-marked-files) "svn:eol-style"
   (completing-read "Set svn:eol-style for the marked files: "
                    '("native" "CRLF" "LF" "CR") nil t)))


;; --------------------------------------------------------------------------------
;; svn-prop-edit-mode:
