     (when (looking-at "   M /\\(.+\\)$")
       (svn-match-string-no-properties 1))))
 
+(defun svn-log-find-file-at-point ()
+  (interactive)
+  (let ((file-name (svn-log-file-name-at-point)))
+    (when file-name
+      (let ((default-directory (svn-status-base-dir)))
+        (find-file file-name)))))
+
 (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."

    (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."

"'svn-log-view-mode' menu"
                  '("SVN-LogView"
                    ["Show Changeset" svn-log-view-diff t]
                    ["Ediff file at point" svn-log-ediff-specific-revision t]
                    ["Find file at point" svn-log-find-file-at-point t]
                    ["Edit log message" svn-log-edit-log-entry t]))

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