 
 (defun vc-darcs-could-register (file)
   "Return non-nil if FILE could be registered."
-  (let ((file (expand-file-name file)))
-    (and (not (vc-darcs-special-file-p file))
-         (vc-darcs-find-root file)
-         t)))
+  (and (not (vc-darcs-special-file-p file))
+       (vc-darcs-find-root file)
+       t))
 
 (defun vc-darcs-working-revision (file)
   "Return the working revision of FILE.


(defun vc-darcs-find-root (file)
  "Return the root darcs repository directory for FILE, or nil if not found."
  (vc-find-root file "_darcs"))

(defun vc-darcs-special-file-p (file)
  (and (string-match "/_darcs/" file)
       (not (string-match "/_darcs/prefs/" file))))

(defun vc-darcs-do-command (command okstatus file &rest flags)
  "Run darcs COMMAND using VC-DO-COMMAND."
  (let ((arguments (cdr (assq command vc-darcs-program-arguments))))
    (apply #'vc-do-command "*vc*" okstatus
           vc-darcs-program-name file (symbol-name command)
           (append arguments flags))))

(defun vc-darcs-changes (&optional file &rest flags)
  "Return a list of hashes of the patches that touch FILE in inverse order."
  (with-temp-buffer
    (apply #'vc-do-command t 0 vc-darcs-program-name file
           "changes" "--xml" flags)
    (let ((changes (xml-parse-region 1 (point-max))))
      (unless (and (null (cdr changes))

;; vc-darcs.el~Init~, vc-darcs.el~Initial~ and so on.


(defvar vc-darcs-version-string "1.10"
  "The version string for vc-darcs.el.")

;;; Code:
