# HG changeset patch
# User Andr��� Spiegel <spiegel@gnu.org>
# Date 1006790931 0
# Node ID be985e4c143017bb74122e92619c874a7ceca267
# Parent  678f91af978ae013d7fb791027d00b51d9c40653
(log-view-find-version): New function.
(log-view-mode-map): Bind it to `f'.

diff -r 678f91af978a -r be985e4c1430 lisp/log-view.el
--- a/lisp/log-view.el	Mon Nov 26 16:07:50 2001 +0000
+++ b/lisp/log-view.el	Mon Nov 26 16:08:51 2001 +0000
@@ -4,7 +4,7 @@
 
 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: rcs sccs cvs log version-control
-;; Revision: $Id: log-view.el,v 1.9 2001/11/12 23:01:17 sds Exp $
+;; Revision: $Id: log-view.el,v 1.10 2001/11/16 13:53:05 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -47,6 +47,7 @@
     ("z" . kill-this-buffer)
     ("m" . set-mark-command)
     ("d" . log-view-diff)
+    ("f" . log-view-find-version)
     ("n" . log-view-msg-next)
     ("p" . log-view-msg-prev)
     ("N" . log-view-file-next)
@@ -173,6 +174,14 @@
 	  (cvs-force-command "/F"))
       (funcall f))))
 
+(defun log-view-find-version (pos)
+  "Visit the version at point."
+  (interactive "d")
+  (save-excursion
+    (goto-char pos)
+    (switch-to-buffer (vc-find-version (log-view-current-file) 
+                                       (log-view-current-tag)))))
+
 ;;;
 ;;; diff
 ;;;