# HG changeset patch
# User Andr��� Spiegel <spiegel@gnu.org>
# Date 1080281199 0
# Node ID 225341adbb0d7c6177549d2e8500ff1ce22e3bad
# Parent  6ad0a43df342efe07a68b74f2ae76fad20de39ee
(vc-arg-list): New function, which handles both compiled and
uncompiled code.
(vc-default-workfile-unchanged-p): Use it.

diff -r 6ad0a43df342 -r 225341adbb0d lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Fri Mar 26 00:33:18 2004 +0000
+++ b/lisp/vc-hooks.el	Fri Mar 26 06:06:39 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.162 2004/03/21 15:44:39 spiegel Exp $
+;; $Id: vc-hooks.el,v 1.163 2004/03/23 20:59:19 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -267,6 +267,15 @@
   ;; BEWARE!! `file' is evaluated twice!!
   `(vc-call-backend (vc-backend ,file) ',fun ,file ,@args))
 
+(defun vc-arg-list (backend fun)
+  "Return the argument list of BACKEND function FUN."
+  (let ((f (symbol-function (vc-find-backend-function backend fun))))
+    (if (listp f)
+        ;; loaded from .el file
+        (cadr f)
+      ;; loaded from .elc file
+      (aref f 0))))
+
 
 (defsubst vc-parse-buffer (pattern i)
   "Find PATTERN in the current buffer and return its Ith submatch."
@@ -463,15 +472,12 @@
 (defun vc-default-workfile-unchanged-p (backend file)
   "Check if FILE is unchanged by diffing against the master version.
 Return non-nil if FILE is unchanged."
-  (let ((diff-args-length
-         (length (cadr (symbol-function
-                        (vc-find-backend-function backend 'diff))))))
-    (zerop (if (> diff-args-length 4) 
-               ;; If the implementation supports it, let the output
-               ;; go to *vc*, not *vc-diff*, since this is an internal call.
-               (vc-call diff file nil nil "*vc*")
-             ;; for backward compatibility
-             (vc-call diff file)))))
+  (zerop (if (> (length (vc-arg-list backend 'diff)) 4)
+             ;; If the implementation supports it, let the output
+             ;; go to *vc*, not *vc-diff*, since this is an internal call.
+             (vc-call diff file nil nil "*vc*")
+           ;; for backward compatibility
+           (vc-call diff file))))
 
 (defun vc-workfile-version (file)
   "Return the version level of the current workfile FILE.