          (vc-darcs-find-root file)
          t)))
 
-(defun vc-darcs-workfile-version (file)
-  "Return the current working-dir version of FILE.
+(defun vc-darcs-working-revision (file)
+  "Return the working revision of FILE.
 With darcs, this is simply the hash of the last patch that touched this file."
   (car (vc-darcs-changes file)))
+
+(defalias 'vc-darcs-workfile-version 'vc-darcs-working-revision
+  "Compatibility alias for vc-darcs-working-revision")
 
 (defun vc-darcs-workfile-unchanged-p (file)
   "Return non-nil if FILE is unchanged from the repository version."

    (vc-do-command t nil vc-darcs-program-name file
                   "whatsnew" "--summary")
    (goto-char (point-max))
    (previous-line 1)
    (if (looking-at "^No changes!")
        'up-to-date
        'edited)))

  "Revert FILE back to the current workfile version."
  (vc-darcs-do-command "revert" 0 file "-a"))

(defun vc-darcs-print-log (file &optional buffer)
  "Print the logfile for the current darcs repository."
  (vc-do-command buffer 'async vc-darcs-program-name
                 (and (not vc-darcs-full-log) file) "changes"))

(defun vc-darcs-diff (file &optional rev1 rev2 buffer)
  "Show the differences in FILE between revisions REV1 and REV2."
