Mercurial > hg > xemacs-beta

diff lisp/w3/url-cache.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents e04119814345
children 9b50b4588a93
line wrap: on
line diff
--- a/lisp/w3/url-cache.el	Mon Aug 13 09:23:08 2007 +0200
+++ b/lisp/w3/url-cache.el	Mon Aug 13 09:24:17 2007 +0200
@@ -1,7 +1,7 @@
 ;;; url-cache.el --- Uniform Resource Locator retrieval tool
 ;; Author: wmperry
-;; Created: 1997/03/09 21:09:36
-;; Version: 1.10
+;; Created: 1997/04/03 21:04:08
+;; Version: 1.11
 ;; Keywords: comm, data, processes, hypermedia
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -150,9 +150,9 @@
 	      (cons
 	       (user-real-login-name)
 	       (cons (or protocol "file")
-		     (split-string (or hostname "localhost")
-				   (eval-when-compile
-				     (regexp-quote "."))))))
+		     (reverse (split-string (or hostname "localhost")
+					    (eval-when-compile
+					      (regexp-quote ".")))))))
 	     (fname    (url-filename urlobj)))
 	(if (and fname (/= (length fname) 0) (= (aref fname 0) ?/))
 	    (setq fname (substring fname 1 nil)))