Mercurial > emacs
changeset 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 | de62e8014967 |
| children | 48aadf3819a1 |
| files | lisp/url/url-expand.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
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)