       ;; the user would have marked them if he wanted them to be compared.
       ;; So we'll look for the "Index: foo" line that marks the first file
       ;; in the diff output, and delete it and everything that follows.
-      ;; This is made more complicated by the fact that `svn-status-diff-mode'
+      ;; This is made more complicated by the fact that `svn-status-activate-diff-mode'
       ;; expects the output to be left in the *svn-process* buffer.
       (unless recursive
         ;; Check `directory-p' relative to the `default-directory' of the

              (when (re-search-forward "^Index: " nil t)
                (delete-region (match-beginning 0) (point-max))))
            (goto-char (setq beginning (point-max))))))))
  (svn-status-diff-mode))

(defun svn-status-diff-mode ()
  "Show the *svn-process* buffer, using the diff-mode."
  (svn-status-show-process-output 'diff t)
  (save-excursion
    (set-buffer svn-status-last-output-buffer-name)
    (when (fboundp 'diff-mode) ;not in GNU Emacs 20.7
      (diff-mode)
      (font-lock-fontify-buffer))
    (setq buffer-read-only t)))

(defun svn-status-show-process-buffer ()
  "Show the content of the *svn-process* buffer"

    (when arg
      (setq rev-arg (read-string "Revision for changeset: " rev-arg)))
    (svn-run-svn nil t 'diff "diff" (concat "-r" rev-arg))
    (svn-status-activate-diff-mode)))

(defun svn-log-edit-log-entry ()
  "Edit the given log entry."
