 
 ;;; user setable variables
 (defvar svn-log-edit-file-name "++svn-log++" "*Name of a saved log file.")
+(defvar svn-log-edit-insert-files-to-commit t "*Insert the filelist to commit in the *svn-log* buffer")
 (defvar svn-status-hide-unknown nil "*Hide unknown files in *svn-status* buffer.")
 (defvar svn-status-hide-unmodified nil "*Hide unmodified files in *svn-status* buffer.")
 (defvar svn-status-directory-history nil "*List of visited svn working directories.")

  (interactive)
  (set-buffer "*svn-log-edit*")
  (erase-buffer))


;; --------------------------------------------------------------------------------

  (let* ((marked-files (svn-status-marked-files)))
    (setq svn-status-files-to-commit marked-files)
    (svn-log-edit-show-files-to-commit)
    (svn-status-pop-to-commit-buffer)
    (when svn-log-edit-insert-files-to-commit
      (svn-log-edit-insert-files-to-commit))))

(defun svn-status-pop-to-commit-buffer ()
  (interactive)
