Mercurial > emacs

changeset 54588:3a4518b4fa64

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(file-relative-name): Fix last change.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 26 Mar 2004 16:21:03 +0000
parents a9657efd4fc8
children 3227aa4e7994
files lisp/files.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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