Mercurial > emacs
comparison lisp/url/url-http.el @ 80775:681a8553e832
(url-https-expand-file-name): Resolve directly to url-default-expander
rather than via another alias.
(url-default-expander): Autoload an autoload. (Bug#825).
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 30 Aug 2008 02:23:33 +0000 |
| parents | 09d6e55e4476 |
| children |
comparison
equal
deleted
inserted
replaced
| 80774:99fcb7a012f0 | 80775:681a8553e832 |
|---|---|
| 1359 | 1359 |
| 1360 ;;;###autoload | 1360 ;;;###autoload |
| 1361 (defconst url-https-default-port 443 "Default HTTPS port.") | 1361 (defconst url-https-default-port 443 "Default HTTPS port.") |
| 1362 ;;;###autoload | 1362 ;;;###autoload |
| 1363 (defconst url-https-asynchronous-p t "HTTPS retrievals are asynchronous.") | 1363 (defconst url-https-asynchronous-p t "HTTPS retrievals are asynchronous.") |
| 1364 ;;;###autoload (autoload 'url-default-expander "url-expand") | |
| 1364 ;;;###autoload | 1365 ;;;###autoload |
| 1365 (defalias 'url-https-expand-file-name 'url-http-expand-file-name) | 1366 (defalias 'url-https-expand-file-name 'url-default-expander) |
| 1366 | 1367 |
| 1367 (defmacro url-https-create-secure-wrapper (method args) | 1368 (defmacro url-https-create-secure-wrapper (method args) |
| 1368 `(defun ,(intern (format (if method "url-https-%s" "url-https") method)) ,args | 1369 `(defun ,(intern (format (if method "url-https-%s" "url-https") method)) ,args |
| 1369 ,(format "HTTPS wrapper around `%s' call." (or method "url-http")) | 1370 ,(format "HTTPS wrapper around `%s' call." (or method "url-http")) |
| 1370 (let ((url-gateway-method 'tls)) | 1371 (let ((url-gateway-method 'tls)) |