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

  (svn-status-proplist-start))

(defun svn-status-property-edit-one-entry (arg)
  (interactive "P")
  (setq svn-status-property-edit-must-match-flag (not arg))
  (svn-status-proplist-start))

(defun svn-status-property-set ()
  (interactive)
  (message "svn-status-property-set")
  (svn-status-proplist-start))

(defun svn-status-property-delete ()


(defun svn-status-show-svn-diff (arg)
  (interactive "P")
  (svn-status-show-svn-diff-internal arg nil))

(defun svn-status-show-svn-diff-for-marked-files (arg)
  (interactive "P")
  (svn-status-show-svn-diff-internal arg t))

(defun svn-status-show-svn-diff-internal (arg &optional use-all-marked-files)
  (let ((fl (if use-all-marked-files
                (svn-status-marked-files)
              (list (svn-status-get-line-information))))
        (clear-buf t)
        (revision (if arg (svn-status-read-revision-string "Diff with files for version: " "PREV") "BASE")))
    (while fl
