# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1192284231 0
# Node ID 9e536c40d1f781865e450f40e404301a31e26e7f
# Parent  de62e8014967f0c4f9328b1403322fe79c73ab10
(url-default-expander): Use `url-file-directory'.

diff -r de62e8014967 -r 9e536c40d1f7 lisp/url/url-expand.el
--- a/lisp/url/url-expand.el	Sat Oct 13 14:03:25 2007 +0000
+++ b/lisp/url/url-expand.el	Sat Oct 13 14:03:51 2007 +0000
@@ -135,7 +135,8 @@
 		  sepchar (substring (url-filename urlobj) (match-beginning 0) (match-end 0)))
 	  (setq file (url-filename urlobj)))
 	(setq file (url-expander-remove-relative-links
-		    (concat (url-basepath (url-filename defobj)) file)))
+		    (expand-file-name file
+				      (url-file-directory (url-filename defobj)))))
 	(url-set-filename urlobj (if query (concat file sepchar query) file))))))
 
 (provide 'url-expand)