;; Maintainer: Andre Spiegel <spiegel@gnu.org>
;; Keywords: tools
-;; $Id: vc.el,v 1.374 2004/03/28 22:00:19 monnier Exp $
+;; $Id: vc.el,v 1.376 2004/04/16 10:21:24 spiegel Exp $
;; This file is part of GNU Emacs.
;; 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*"))))