Mercurial > emacs
changeset 72589:f6c1ac4c14c7
(url-recreate-url-attributes): New function, code moved from `url-recreate-url'.
(url-recreate-url): Use it. Put the `url-target' at the end of the URL.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 01 Sep 2006 02:31:24 +0000 |
| parents | 97860dfadca5 |
| children | 210a878f1395 |
| files | lisp/url/url-parse.el |
| diffstat | 1 files changed, 13 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/url/url-parse.el Thu Aug 31 23:16:03 2006 +0000 +++ b/lisp/url/url-parse.el Fri Sep 01 02:31:24 2006 +0000 @@ -100,17 +100,20 @@ (not (equal (url-port urlobj) (url-scheme-get-property (url-type urlobj) 'default-port)))) (format ":%d" (url-port urlobj))) - (or (url-filename urlobj) "/") + (or (url-filename urlobj) "/") + (url-recreate-url-attributes urlobj) (if (url-target urlobj) - (concat "#" (url-target urlobj))) - (if (url-attributes urlobj) - (concat ";" - (mapconcat - (function - (lambda (x) - (if (cdr x) - (concat (car x) "=" (cdr x)) - (car x)))) (url-attributes urlobj) ";"))))) + (concat "#" (url-target urlobj))))) + +(defun url-recreate-url-attributes (urlobj) + "Recreate the attributes of an URL string from the parsed URLOBJ." + (when (url-attributes urlobj) + (concat ";" + (mapconcat (lambda (x) + (if (cdr x) + (concat (car x) "=" (cdr x)) + (car x))) + (url-attributes urlobj) ";")))) ;;;###autoload (defun url-generic-parse-url (url)