# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1220062947 0
# Node ID 8722b76bdf46315d9d9fac662adaee3e94799ce7
# Parent  5a2400fab3c37668f5a44a3ea47288c363d3821b
(url-https-expand-file-name): Resolve directly to url-default-expander
rather than via another alias.
(url-default-expander): Autoload an autoload.  (Bug#825).

diff -r 5a2400fab3c3 -r 8722b76bdf46 lisp/url/url-http.el
--- a/lisp/url/url-http.el	Fri Aug 29 19:15:19 2008 +0000
+++ b/lisp/url/url-http.el	Sat Aug 30 02:22:27 2008 +0000
@@ -1,6 +1,7 @@
 ;;; url-http.el --- HTTP retrieval routines
 
-;; Copyright (C) 1999, 2001, 2004, 2005, 2006, 2007, 2008  Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2001, 2004, 2005, 2006, 2007,
+;;   2008  Free Software Foundation, Inc.
 
 ;; Author: Bill Perry <wmperry@gnu.org>
 ;; Keywords: comm, data, processes
@@ -1361,8 +1362,9 @@
 (defconst url-https-default-port 443 "Default HTTPS port.")
 ;;;###autoload
 (defconst url-https-asynchronous-p t "HTTPS retrievals are asynchronous.")
+;;;###autoload (autoload 'url-default-expander "url-expand")
 ;;;###autoload
-(defalias 'url-https-expand-file-name 'url-http-expand-file-name)
+(defalias 'url-https-expand-file-name 'url-default-expander)
 
 (defmacro url-https-create-secure-wrapper (method args)
   `(defun ,(intern (format (if method "url-https-%s" "url-https") method)) ,args