   ;; In `svn-status-show-svn-diff-internal', there is a comment
   ;; that REVISION `nil' might mean omitting the -r option entirely.
   ;; That doesn't seem like a good idea with svn cat.
-  ;;
-  ;; TODO: Return the alist, instead of storing it in a variable.
+
+  ;; (message "svn-status-get-specific-revision-internal: %S %S" line-infos revision)
 
   (when (eq revision :ask)
     (setq revision (svn-status-read-revision-string

(defvar svn-status-operated-on-dot nil)
(defvar svn-status-last-commit-author nil)
(defvar svn-status-elided-list nil)
(defvar svn-status-get-specific-revision-file-info)
(defvar svn-status-last-output-buffer-name nil "The buffer name for the buffer that holds the output from the last executed svn command")
(defvar svn-status-pre-run-svn-buffer nil)
(defvar svn-status-update-list nil)

    (re-search-backward "^r\\([0-9]+\\)")
    (svn-match-string-no-properties 1)))

(defun svn-log-file-name-at-point ()
  (save-excursion
    (beginning-of-line)
    (when (looking-at "   M /\\(.+\\)$")
      (svn-match-string-no-properties 1))))

(defun svn-log-view-diff (arg)
  "Show the changeset for a given log entry.
When called with a prefix argument, ask the user for the revision."
  (interactive "P")
  (svn-status-diff-show-changeset (svn-log-revision-at-point) arg))

(defun svn-log-get-specific-revision ()
  "Get an older revision of the file at point via svn cat."
  (interactive)
  ;; (message "%S" (svn-status-make-line-info (svn-log-file-name-at-point)))
  (let ((default-directory (svn-status-base-dir)))
    (svn-status-get-specific-revision-internal
     (list (svn-status-make-line-info (svn-log-file-name-at-point)))
     (svn-log-revision-at-point))))

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