Mercurial > emacs

comparison lisp/vc.el @ 47760:15d0c5379959

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-default-show-log-entry): Fix typo.
author Markus Rost <rost@math.uni-bielefeld.de>
date Sat, 05 Oct 2002 03:00:47 +0000
parents 12d99d7af574
children 1dc1153f070a
comparison
equal deleted inserted replaced
47759:b2674275598d 47760:15d0c5379959
4 4
5 ;; Author: FSF (see below for full credits) 5 ;; Author: FSF (see below for full credits)
6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> 6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
7 ;; Keywords: tools 7 ;; Keywords: tools
8 8
9 ;; $Id: vc.el,v 1.336 2002/09/04 20:47:08 spiegel Exp $ 9 ;; $Id: vc.el,v 1.337 2002/10/03 22:43:01 monnier Exp $
10 10
11 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
12 12
13 ;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by 14 ;; it under the terms of the GNU General Public License as published by
2489 (vc-call-backend ',(vc-backend file) 2489 (vc-call-backend ',(vc-backend file)
2490 'show-log-entry 2490 'show-log-entry
2491 ',(vc-workfile-version file)) 2491 ',(vc-workfile-version file))
2492 (set-buffer-modified-p nil))))) 2492 (set-buffer-modified-p nil)))))
2493 2493
2494 (defun vc-default-show-log-entry (backend ver) 2494 (defun vc-default-show-log-entry (backend rev)
2495 (if (fboundp 'log-view-goto-rev) 2495 (if (fboundp 'log-view-goto-rev)
2496 (log-view-goto-rev rev))) 2496 (log-view-goto-rev rev)))
2497 2497
2498 (defun vc-default-comment-history (backend file) 2498 (defun vc-default-comment-history (backend file)
2499 "Return a string with all log entries stored in BACKEND for FILE." 2499 "Return a string with all log entries stored in BACKEND for FILE."