 
 (defun vc-darcs-rename-file (old new)
   "Rename the file OLD to NEW in the darcs repository."
-  (vc-darcs-do-command 'mv 0 nil (expand-file-name old) (expand-file-name new)))
+  (vc-darcs-do-command 'mv 0 nil old new))
 
 (defun vc-darcs-delete-file (file)
-  (delete-file (expand-file-name file)))
+  (delete-file file))
 
 (defun vc-darcs-parse-integer (string)
   (let* ((c (read-from-string string))

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


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

;;; Code:

         (log (if match
                  (substring comment (match-end 0))
                  "")))
    (vc-darcs-do-command 'record 'async files "-a" "--pipe")
    (with-current-buffer (get-buffer "*vc*")
      (process-send-string nil
                           (format "%s\n%s\n%s\n%s"
                                   date vc-darcs-mail-address patch-name log))
      (process-send-eof))))

(defun vc-darcs-find-revision (file rev buffer)
  "This gets revision REV of FILE from the darcs repository."
  (let ((rev (vc-darcs-rev-to-hash rev file)))
    (apply #'vc-do-command buffer 0 vc-darcs-program-name file
           "show" "contents"
           (and rev (list "--match" (concat "hash " rev))))))

(defalias 'vc-darcs-find-version 'vc-darcs-find-revision
  "Compatibility alias for vc-darcs-find-revision.")

(defun vc-darcs-checkout (file &optional editable rev)
  "Check out FILE from the Darcs repository.
