# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1033684981 0
# Node ID 12d99d7af574d489b5c200739556776bd71316f5
# Parent  399628a16c0aa24c7431b87e060fe73a32d5266f
(vc-print-log): Unconditionally use `show-log-entry'.
(vc-default-show-log-entry): New fun.

diff -r 399628a16c0a -r 12d99d7af574 lisp/vc.el
--- 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)