From 4b284383bb198e1c5ea311431bdc46947b4a46ef Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 23 Apr 2004 21:03:21 +0000 Subject: [PATCH] (vc-print-log): Fix code that handles wrong-number-of-arguments in backend call. --- lisp/ChangeLog | 7 +++++++ lisp/vc.el | 8 ++++---- 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 + + * 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 * 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 ;; 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*")))) -- 2.39.5