          (log (if match
                   (substring comment (match-end 0))
                   "")))
-    (apply #'vc-darcs-do-command 'record 'async nil "-a" "--pipe" files)
+    (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-version (file rev buffer)
+(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.

        "darcs"
        (format "darcs/%s" (vc-state file)))))

(defun vc-darcs-register (files &optional rev comment)
  "Add FILES to the darcs repository, and record this.
REV and COMMENT are ignored."
  ;; Emacs 22 compatibility
  (when (stringp files)
    (setq files (list files)))
  (vc-darcs-do-command 'add 0 files))

(defun vc-darcs-checkin (files rev comment)
  "Record FILES to darcs.  COMMENT is the new comment."
  (when (not (null rev))
    (error "Cannot specify check-in revision with darcs."))
  ;; Emacs 22 compatibility
  (when (stringp files)
    (setq files (list files)))
  (let* ((date (format-time-string "%Y%m%d%H%M%S" nil t))
         (match (string-match "\n" comment))
         (patch-name (if match 


;; Darcs is David's Advanced Revision Control System at
;; http://www.darcs.net/

;; This version is of vc-darcs was written for Emacs 23.  It will work
;; under Emacs 22, albeit with reduced functionality.

;; A few ideas for this file are directly taken from vc-svn.el.  Thanks to
;; Jim Blandy.
