From 02e43de8af7fd97e9dc9fbd73ced2d39c10b17a7 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 3 Oct 2002 22:43:01 +0000 Subject: [PATCH] (vc-print-log): Unconditionally use `show-log-entry'. (vc-default-show-log-entry): New fun. --- lisp/vc.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/lisp/vc.el b/lisp/vc.el index 8a6cdb3ac1a..25805fb5978 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -6,7 +6,7 @@ ;; Maintainer: Andre Spiegel ;; 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 @@ allowed and simply skipped)." (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) -- 2.39.2