diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2004-04-23 21:03:21 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2004-04-23 21:03:21 +0000 |
| commit | 4b284383bb198e1c5ea311431bdc46947b4a46ef (patch) | |
| tree | cd6d07633f959864e090d78cb1e7c68e06f643eb | |
| parent | 0d2ce4efca2baa742c3740a3d1c542ea7378d9c4 (diff) | |
| download | emacs-4b284383bb198e1c5ea311431bdc46947b4a46ef.tar.gz | |
(vc-print-log): Fix code that handles wrong-number-of-arguments in backend
call.
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | 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 <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*")))) |