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

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        06/09/01 02:31:24

Index: url-parse.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/url/url-parse.el,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -b -r1.11 -r1.12
--- url-parse.el        5 Feb 2006 23:15:07 -0000       1.11
+++ url-parse.el        1 Sep 2006 02:31:24 -0000       1.12
@@ -101,16 +101,19 @@
                               (url-scheme-get-property (url-type urlobj) 
'default-port))))
              (format ":%d" (url-port urlobj)))
          (or (url-filename urlobj) "/")
+         (url-recreate-url-attributes urlobj)
          (if (url-target urlobj)
-             (concat "#" (url-target urlobj)))
-         (if (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
-                      (function
-                       (lambda (x)
+           (mapconcat (lambda (x)
                          (if (cdr x)
                              (concat (car x) "=" (cdr x))
-                           (car x)))) (url-attributes urlobj) ";")))))
+                           (car x)))
+                       (url-attributes urlobj) ";"))))
 
 ;;;###autoload
 (defun url-generic-parse-url (url)