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 /lisp/vc.el | |
| parent | 0d2ce4efca2baa742c3740a3d1c542ea7378d9c4 (diff) | |
| download | emacs-4b284383bb198e1c5ea311431bdc46947b4a46ef.tar.gz | |
(vc-print-log): Fix code that handles wrong-number-of-arguments in backend
call.
Diffstat (limited to 'lisp/vc.el')
| -rw-r--r-- | lisp/vc.el | 8 |
1 files changed, 4 insertions, 4 deletions
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*")))) |