                   (goto-char (point-min))
                   (save-buffer)))
             (find-file file-name-with-revision)))))
-    (message "default-directory: %s revision-file-info: %S" default-directory svn-status-get-specific-revision-file-info)
+    ;;(message "default-directory: %s revision-file-info: %S" default-directory svn-status-get-specific-revision-file-info)
     (nreverse svn-status-get-specific-revision-file-info)))
 
 (defun svn-status-ediff-with-revision (arg)

"'svn-log-view-mode' menu"
                  '("SVN-LogView"
                    ["Show Changeset" svn-log-view-diff t]
                    ["Edit log message" svn-log-edit-log-entry t]))

(defun svn-log-view-popup-menu (event)

    (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-ediff-specific-revision ()
  "Call ediff for the file at point to view a changeset"
  (interactive)
  (let* ((cur-buf (current-buffer))
         (upper-rev (svn-log-revision-at-point))
         (lower-rev (number-to-string (- (string-to-number upper-rev) 1)))
         (file-name (svn-log-file-name-at-point))
         (default-directory (svn-status-base-dir))
         (upper-rev-file-name (when file-name
                                (cdar (svn-status-get-specific-revision-internal
                                       (list (svn-status-make-line-info file-name)) upper-rev))))
         (lower-rev-file-name (when file-name
                                (cdar (svn-status-get-specific-revision-internal
                                       (list (svn-status-make-line-info file-name)) lower-rev)))))
    ;;(message "%S %S" upper-rev-file-name lower-rev-file-name)
    (if file-name
        (let* ((ediff-after-quit-destination-buffer cur-buf)
               (newer-buffer (find-file-noselect upper-rev-file-name))
               (base-buff (find-file-noselect lower-rev-file-name))
               (svn-transient-buffers (list newer-buffer))
               (startup-hook '(svn-ediff-startup-hook)))
          (ediff-buffers base-buff newer-buffer startup-hook))
      (message "No file at point"))))

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