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

     ["Edit svn:ignore Property" svn-status-property-edit-svn-ignore t]
     "---"
     ["Set svn:keywords List" svn-status-property-set-keyword-list t]
     )
    "---"
    ["Edit Next SVN Cmd Line" svn-status-toggle-edit-cmd-flag t]

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