Mercurial > emacs
comparison lisp/url/url-gw.el @ 63618:95a1159c8f9e
(url-open-stream): Fix spellings.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 21 Jun 2005 13:35:38 +0000 |
| parents | 462b0b8865f7 |
| children | 56d2561b1c9f bdcbdec78dd3 |
comparison
equal
deleted
inserted
replaced
| 63617:f02351c457a6 | 63618:95a1159c8f9e |
|---|---|
| 210 | 210 |
| 211 ;;;###autoload | 211 ;;;###autoload |
| 212 (defun url-open-stream (name buffer host service) | 212 (defun url-open-stream (name buffer host service) |
| 213 "Open a stream to HOST, possibly via a gateway. | 213 "Open a stream to HOST, possibly via a gateway. |
| 214 Args per `open-network-stream'. | 214 Args per `open-network-stream'. |
| 215 Will not make a connexion if `url-gateway-unplugged' is non-nil." | 215 Will not make a connection if `url-gateway-unplugged' is non-nil." |
| 216 (unless url-gateway-unplugged | 216 (unless url-gateway-unplugged |
| 217 (let ((gw-method (if (and url-gateway-local-host-regexp | 217 (let ((gw-method (if (and url-gateway-local-host-regexp |
| 218 (not (eq 'tls url-gateway-method)) | 218 (not (eq 'tls url-gateway-method)) |
| 219 (not (eq 'ssl url-gateway-method)) | 219 (not (eq 'ssl url-gateway-method)) |
| 220 (string-match | 220 (string-match |