changeset 41557:be985e4c1430

(log-view-find-version): New function. (log-view-mode-map): Bind it to `f'.
author André Spiegel <spiegel@gnu.org>
date Mon, 26 Nov 2001 16:08:51 +0000
parents 678f91af978a
children a25a0ea2f10a
files lisp/log-view.el
diffstat 1 files changed, 10 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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
 ;;;