Mercurial > emacs
changeset 47748:12d99d7af574
(vc-print-log): Unconditionally use `show-log-entry'.
(vc-default-show-log-entry): New fun.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 03 Oct 2002 22:43:01 +0000 |
| parents | 399628a16c0a |
| children | 4d7a3dd9a644 |
| files | lisp/vc.el |
| diffstat | 1 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Thu Oct 03 18:53:43 2002 +0000 +++ b/lisp/vc.el Thu Oct 03 22:43:01 2002 +0000 @@ -6,7 +6,7 @@ ;; Maintainer: Andre Spiegel <spiegel@gnu.org> ;; Keywords: tools -;; $Id: vc.el,v 1.335 2002/07/22 18:52:04 spiegel Exp $ +;; $Id: vc.el,v 1.336 2002/09/04 20:47:08 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -2486,14 +2486,15 @@ (delete-char (- (match-end 0) (match-beginning 0)))) (shrink-window-if-larger-than-buffer) ;; move point to the log entry for the current version - (if (fboundp 'log-view-goto-rev) - (log-view-goto-rev ',(vc-workfile-version file)) - (if (vc-find-backend-function ',(vc-backend file) 'show-log-entry) - (vc-call-backend ',(vc-backend file) - 'show-log-entry - ',(vc-workfile-version file)))) + (vc-call-backend ',(vc-backend file) + 'show-log-entry + ',(vc-workfile-version file)) (set-buffer-modified-p nil))))) +(defun vc-default-show-log-entry (backend ver) + (if (fboundp 'log-view-goto-rev) + (log-view-goto-rev rev))) + (defun vc-default-comment-history (backend file) "Return a string with all log entries stored in BACKEND for FILE." (if (vc-find-backend-function backend 'print-log)