Mercurial > emacs
diff lisp/vc-hooks.el @ 55099:a856350e29d5
(vc-default-workfile-unchanged-p): Fix code that handles
wrong-number-of-arguments in backend call.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 23 Apr 2004 21:01:07 +0000 |
| parents | 08fcaad03634 |
| children | 6f014cde9d81 1a68e4b22355 4c90ffeb71c5 |
line wrap: on
line diff
--- a/lisp/vc-hooks.el Fri Apr 23 20:57:46 2004 +0000 +++ b/lisp/vc-hooks.el Fri Apr 23 21:01:07 2004 +0000 @@ -6,7 +6,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel <spiegel@gnu.org> -;; $Id: vc-hooks.el,v 1.166 2004/04/11 15:03:21 spiegel Exp $ +;; $Id: vc-hooks.el,v 1.167 2004/04/16 10:21:51 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -44,8 +44,8 @@ "set `vc-handled-backends' to nil to disable VC.") (defvar vc-master-templates ()) -(make-obsolete-variable 'vc-master-templates - "to define master templates for a given BACKEND, use +(make-obsolete-variable 'vc-master-templates + "to define master templates for a given BACKEND, use vc-BACKEND-master-templates. To enable or disable VC for a given BACKEND, use `vc-handled-backends'.") @@ -474,8 +474,8 @@ (indirect-function (vc-find-backend-function (vc-backend file) 'diff)))) - (not (eq (caddr err) 5))) - (signal 'wrong-number-of-arguments err) + (not (eq (caddr err) 4))) + (signal (car err) (cdr err)) (vc-call diff file)))))) (defun vc-workfile-version (file)