 
 (defvar svn-status-buffer-name "*svn-status*" "Name for the svn status buffer")
 (defvar svn-process-buffer-name "*svn-process*" "Name for the svn process buffer")
+(defvar svn-log-edit-buffer-name "*svn-log-edit*" "Name for the svn log-edit buffer")
 
 (defcustom svn-status-use-header-line
   (if (boundp 'header-line-format) t 'inline)

          (message "Copied %S" func-name))
      (message "No current defun detected."))))


(defun svn-status-activate-diff-mode ()
  "Show the `svn-process-buffer-name' buffer, using the diff-mode."

(defun svn-status-pop-to-commit-buffer ()
  (interactive)
  (setq svn-status-pre-commit-window-configuration (current-window-configuration))
  (let* ((use-existing-buffer (get-buffer svn-log-edit-buffer-name))
         (commit-buffer (get-buffer-create svn-log-edit-buffer-name))
         (dir default-directory))
    (pop-to-buffer commit-buffer)
    (setq default-directory dir)
