(vc-print-log): Unconditionally use `show-log-entry'.

(vc-default-show-log-entry): New fun.

1 files 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 <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 @@ 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)