[Emacs-diffs] Changes to emacs/lisp/log-view.el

[Andre Spiegel]

Index: emacs/lisp/log-view.el
diff -u emacs/lisp/log-view.el:1.10 emacs/lisp/log-view.el:1.11
--- emacs/lisp/log-view.el:1.10 Fri Nov 16 08:53:05 2001
+++ emacs/lisp/log-view.el      Mon Nov 26 11:08:51 2001
@@ -4,7 +4,7 @@
 
 ;; Author: Stefan Monnier <address@hidden>
 ;; Keywords: rcs sccs cvs log version-control
-;; Revision: $Id: log-view.el,v 1.10 2001/11/16 13:53:05 monnier Exp $
+;; Revision: $Id: log-view.el,v 1.11 2001/11/26 16:08:51 spiegel 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)
@@ -172,6 +173,14 @@
          ;; FIXME:  I need to force because the fileinfos are UNKNOWN
          (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