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

call.

2 files changed, 11 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9d0215df2e4..802c4f780db 100644
--- 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 676b6bd6b88..f48cbe20b1c 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.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*"))))