# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1080318063 0
# Node ID 3a4518b4fa64249257ea99bc821db17e1e186e1a
# Parent  a9657efd4fc8708eab8700c772367f9f8571a200
(file-relative-name): Fix last change.

diff -r a9657efd4fc8 -r 3a4518b4fa64 lisp/files.el
--- a/lisp/files.el	Fri Mar 26 16:17:33 2004 +0000
+++ b/lisp/files.el	Fri Mar 26 16:21:03 2004 +0000
@@ -2940,7 +2940,7 @@
 				     directory nil nil case-fold-search))
 	      ;; We matched within FILENAME's directory part.
 	      ;; Add the rest of FILENAME onto ANCESTOR.
-	      (let ((rest (substring filename (match-end 0))))
+	      (let ((rest (substring filename (length directory))))
 		(if (and (equal ancestor ".") (not (equal rest "")))
 		    ;; But don't bother with ANCESTOR if it would give us `./'.
 		    rest