(vc-hg-diff): Pass relative file names. (Bug#1903)

lisp/ChangeLog

+2009-01-15  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* vc-hg.el (vc-hg-diff): Pass relative file names.  (Bug#1903)
+
 2009-01-15  Martin Rudalics  <rudalics@gmx.at>
 	* window.el (special-display-p): Revert 2009-01-14 change.

lisp/vc-hg.el

@@ -259,15 +259,16 @@ If nil, use the value of `vc-diff-switches'.  If t, use no switches."
 (defun vc-hg-diff (files &optional oldvers newvers buffer)
   "Get a difference report using hg between two revisions of FILES."
   (let* ((firstfile (car files))
+	 (cwd (if firstfile (file-name-directory firstfile)
+		(expand-file-name default-directory)))
 	 (working (and firstfile (vc-working-revision firstfile))))
     (when (and (equal oldvers working) (not newvers))
       (setq oldvers nil))
     (when (and (not oldvers) newvers)
       (setq oldvers working))
     (apply #'vc-hg-command (or buffer "*vc-diff*") nil
-	   (mapcar (lambda (file) (file-name-nondirectory file)) files)
-	   "--cwd" (or (when firstfile (file-name-directory firstfile))
-		       (expand-file-name default-directory))
+	   (mapcar (lambda (file) (file-relative-name file cwd)) files)
+	   "--cwd" cwd
 	   "diff"
 	   (append
 	    (vc-switches 'hg 'diff)