[Emacs-diffs] Changes to emacs/lisp/url/url-expand.el, v [EMACS_22_BASE]

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Richard M. Stallman <rms>       07/10/13 14:03:51

Index: url-expand.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/url/url-expand.el,v
retrieving revision 1.8.2.1
retrieving revision 1.8.2.2
diff -u -b -r1.8.2.1 -r1.8.2.2
--- url-expand.el       25 Jul 2007 04:18:22 -0000      1.8.2.1
+++ url-expand.el       13 Oct 2007 14:03:51 -0000      1.8.2.2
@@ -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)