   "Move to the previous changeset in the log."
   (interactive)
   (beginning-of-line)
-  (unless (re-search-backward "^------------------------------------------------------------------------$" nil t)
+  (unless (re-search-backward svn-log-entry-start-re nil t)
     (error "Found no commit"))
   (svn-log-show-diff))
 

  (define-key svn-log-mode-map "\r" 'svn-log-show-diff)
  (define-key svn-log-mode-map "n" 'svn-log-next)
  (define-key svn-log-mode-map "p" 'svn-log-prev)
  )

(defun svn-log-mode ()
  "Major mode for viewing Subversion logs."
  (interactive)
  (kill-all-local-variables)
  (setq major-mode 'svn-log-mode

      (goto-char (point-max))
      (insert str)
      (goto-char svn-output-marker)
      (while (cond ((looking-at
                     "\\([ ACDGIMRX?!~][ CM][ L][ +][ S][ KOTB]\\) \\(.*\\)\n")
                    (let ((status (match-string 1))
                          (filename (match-string 2)))
                      (delete-region (match-beginning 0)
                                     (match-end 0))
                      (svn-insert-file filename status))
                    t)
                   ((looking-at
                     "\n\\|Performing status on external item at .*\n")
                    (delete-region (match-beginning 0)
                                   (match-end 0))
                    t))))))

(defun svn-status-sentinel (proc reason)
  (with-current-buffer (process-buffer proc)
