         (svn-status dir)
       (error "%s is not a directory" dir))))
 
+(defun svn-had-user-input-since-asynch-run ()
+  (not (equal (recent-keys) svn-pre-run-asynch-recent-keys)))
+
 (defun svn-process-environment ()
   "Construct the environment for the svn process.
 It is a combination of `svn-status-svn-environment-var-list' and

            (if run-asynchron
                (progn
                  ;;(message "running asynchron: %s %S" svn-exe arglist)
                  (let ((process-environment (svn-process-environment))
                        (process-connection-type nil))
                    ;; Communicate with the subprocess via pipes rather

                    ["Edit log message" svn-log-edit-log-entry t]))

(defvar svn-log-view-font-lock-keywords
  '(("^r[0-9]+ .+" . font-lock-keyword-face)
  "Keywords in svn-log-view-mode."))
(put 'svn-log-view-font-lock-keywords 'risky-local-variable t) ;for Emacs 20.7

(define-derived-mode svn-log-view-mode fundamental-mode "svn-log-view"
  "Major Mode to show the output from svn log.
