Mercurial > emacs
diff lisp/url/url-expand.el @ 79066:9e536c40d1f7
(url-default-expander): Use `url-file-directory'.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 13 Oct 2007 14:03:51 +0000 |
parents | 8932997d0b62 |
children | 9c0b3f269b92 591c29778a30 |
line wrap: on
line diff
--- 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)