Mercurial > emacs
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 ;;;