[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/log-view.el
From: |
Andre Spiegel |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/log-view.el |
Date: |
Mon, 26 Nov 2001 11:08:51 -0500 |
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