(log-view-find-version): New function.

(log-view-mode-map): Bind it to `f'.

diff --git a/lisp/log-view.el b/lisp/log-view.el
index 11e23724690d3c8f0bc81cd5c095d48b7ba48877..7aee6bdc6ed1c9f4ffe95dd7af31dc2810cb53c7 100644 (file)
--- a/lisp/log-view.el
+++ b/lisp/log-view.el
@@ -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
 ;;;