(vc-print-log): Fix code that handles wrong-number-of-arguments in backend

call.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9d0215df2e4660fea9a6401227cb5d82046029ef..802c4f780db94bd6c1c99647b0585147dad20a24 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2004-04-23  Andre Spiegel  <spiegel@gnu.org>
+
+       * vc-hooks.el (vc-default-workfile-unchanged-p): Fix code that
+       handles wrong-number-of-arguments in backend call.
+
+       * vc.el (vc-print-log): Likewise.
+
 2004-04-23  Kenichi Handa  <handa@m17n.org>
 
        * international/mule-util.el (char-displayable-p): Simplified by

diff --git a/lisp/vc.el b/lisp/vc.el
index 676b6bd6b8886ada9e84073ad88d350f8cb6f9db..f48cbe20b1cdb8b2dfc394bda025e1eb57028afd 100644 (file)
--- 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.375 2004/04/11 15:05:18 spiegel Exp $
+;; $Id: vc.el,v 1.376 2004/04/16 10:21:24 spiegel Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -2357,11 +2357,11 @@ If FOCUS-REV is non-nil, leave the point at that revision."
        ;; without the optional buffer argument (for backward compatibility).
        ;; Otherwise, resignal.
        (if (or (not (eq (cadr err)
-                        (indirect-function 
-                         (vc-find-backend-function (vc-backend file) 
+                        (indirect-function
+                         (vc-find-backend-function (vc-backend file)
                                                    'print-log))))
                (not (eq (caddr err) 2)))
-           (signal 'wrong-number-of-arguments err)
+           (signal (car err) (cdr err))
          ;; for backward compatibility
          (vc-call print-log file)
          (set-buffer "*vc*"))))