Mercurial > emacs

comparison lisp/log-view.el @ 41557:be985e4c1430

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 98cd2e32a438
children fdee0c7c3bf1
comparison
equal deleted inserted replaced
41556:678f91af978a 41557:be985e4c1430
2 2
3 ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. 3 ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
4 4
5 ;; Author: Stefan Monnier <monnier@cs.yale.edu> 5 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
6 ;; Keywords: rcs sccs cvs log version-control 6 ;; Keywords: rcs sccs cvs log version-control
7 ;; Revision: $Id: log-view.el,v 1.9 2001/11/12 23:01:17 sds Exp $ 7 ;; Revision: $Id: log-view.el,v 1.10 2001/11/16 13:53:05 monnier Exp $
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
10 10
11 ;; GNU Emacs is free software; you can redistribute it and/or modify 11 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by 12 ;; it under the terms of the GNU General Public License as published by
45 (easy-mmode-defmap log-view-mode-map 45 (easy-mmode-defmap log-view-mode-map
46 '(("q" . quit-window) 46 '(("q" . quit-window)
47 ("z" . kill-this-buffer) 47 ("z" . kill-this-buffer)
48 ("m" . set-mark-command) 48 ("m" . set-mark-command)
49 ("d" . log-view-diff) 49 ("d" . log-view-diff)
50 ("f" . log-view-find-version)
50 ("n" . log-view-msg-next) 51 ("n" . log-view-msg-next)
51 ("p" . log-view-msg-prev) 52 ("p" . log-view-msg-prev)
52 ("N" . log-view-file-next) 53 ("N" . log-view-file-next)
53 ("P" . log-view-file-prev) 54 ("P" . log-view-file-prev)
54 ("\M-n" . log-view-file-next) 55 ("\M-n" . log-view-file-next)
171 (list (cadr data))))) 172 (list (cadr data)))))
172 ;; FIXME: I need to force because the fileinfos are UNKNOWN 173 ;; FIXME: I need to force because the fileinfos are UNKNOWN
173 (cvs-force-command "/F")) 174 (cvs-force-command "/F"))
174 (funcall f)))) 175 (funcall f))))
175 176
177 (defun log-view-find-version (pos)
178 "Visit the version at point."
179 (interactive "d")
180 (save-excursion
181 (goto-char pos)
182 (switch-to-buffer (vc-find-version (log-view-current-file)
183 (log-view-current-tag)))))
184
176 ;;; 185 ;;;
177 ;;; diff 186 ;;; diff
178 ;;; 187 ;;;
179 188
180 (defun log-view-diff (beg end) 189 (defun log-view-diff (beg end)