From: André Spiegel <spiegel@gnu.org>
Date: Fri, 26 Mar 2004 06:07:55 +0000 (+0000)
Subject: (vc-print-log): Undo prev change, use new function vc-arg-list from
X-Git-Tag: ttn-vms-21-2-B4~7098
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cfdc6c099eb91b79c9078f7f28750973c8e90826;p=emacs.git

(vc-print-log): Undo prev change, use new function vc-arg-list from
vc-hooks.el.
---

diff --git a/lisp/vc.el b/lisp/vc.el
index 4951bc1cd6e..d55951eaff8 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -7,7 +7,7 @@
 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
 ;; Keywords: tools
 
-;; $Id: vc.el,v 1.370 2004/03/23 21:00:36 monnier Exp $
+;; $Id: vc.el,v 1.371 2004/03/25 15:39:03 sds Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -2334,19 +2334,12 @@ allowed and simply skipped)."
 If FOCUS-REV is non-nil, leave the point at that revision."
   (interactive)
   (vc-ensure-vc-buffer)
-  (let* ((file buffer-file-name)
-         (backend-function
-          (symbol-function
-           (vc-find-backend-function (vc-backend file) 'print-log)))
-         (print-log-args
-          (if (byte-code-function-p backend-function)
-              (aref backend-function 0)
-              (cadr backend-function))))
+  (let ((file buffer-file-name))
     (or focus-rev (setq focus-rev (vc-workfile-version file)))
     ;; Don't switch to the output buffer before running the command,
     ;; so that any buffer-local settings in the vc-controlled
     ;; buffer can be accessed by the command.
-    (if (cdr print-log-args)
+    (if (> (length (vc-arg-list (vc-backend file) 'print-log)) 1)
         (progn
           (vc-call print-log file "*vc-change-log*")
           (set-buffer "*vc-change-log*"))