diff lisp/files.el @ 54588:3a4518b4fa64

(file-relative-name): Fix last change.

--- 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