From cbd5b3d95ecd6ef2e955911c913856824aaa7639 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 30 Aug 2008 02:24:00 +0000 Subject: (url-https-expand-file-name): Resolve directly to url-default-expander rather than via another alias. (url-default-expander): Autoload an autoload. (Bug#825). --- lisp/url/ChangeLog | 6 ++++++ lisp/url/url-http.el | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 8eeb9c89537..ae12c685dcc 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,9 @@ +2008-08-30 Glenn Morris + + * url-http.el (url-https-expand-file-name): Resolve directly to + url-default-expander rather than via another alias. + (url-default-expander): Autoload an autoload. (Bug#825). + 2008-04-04 Magnus Henoch * url-http.el (url-http-chunked-encoding-after-change-function): diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index 98060461f3d..326d7fc35db 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -1361,8 +1361,9 @@ p3p (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 -- cgit v1.2.1