From: André Spiegel <spiegel@gnu.org>
Date: Mon, 26 Nov 2001 16:08:51 +0000 (+0000)
Subject: (log-view-find-version): New function.
X-Git-Tag: ttn-vms-21-2-B4~18137
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c0313667a2189b1d09106451c41a2a864ec66ae7;p=emacs.git

(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 11e23724690..7aee6bdc6ed 100644
--- 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
 ;;;