Commit c0313667 authored by André Spiegel's avatar André Spiegel

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

(log-view-mode-map): Bind it to `f'.
parent ac0aae44
......@@ -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
;;;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment