Mercurial > emacs
comparison lisp/url/url-http.el @ 109553:a4b9fa0b861b
Merge from emacs-23
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 27 Jul 2010 04:10:05 +0200 |
| parents | c9fdfb1ca05e f573d4ab76a4 |
| children | 88f8a448614e |
comparison
equal
deleted
inserted
replaced
| 109552:9eac3b0c2884 | 109553:a4b9fa0b861b |
|---|---|
| 484 (delete-process url-http-process))))) | 484 (delete-process url-http-process))))) |
| 485 (let ((buffer (current-buffer)) | 485 (let ((buffer (current-buffer)) |
| 486 (class nil) | 486 (class nil) |
| 487 (success nil) | 487 (success nil) |
| 488 ;; other status symbols: jewelry and luxury cars | 488 ;; other status symbols: jewelry and luxury cars |
| 489 (status-symbol (cadr (assq url-http-response-status url-http-codes)))) | 489 (status-symbol (cadr (assq url-http-response-status url-http-codes))) |
| 490 ;; The filename part of a URL could be in remote file syntax, | |
| 491 ;; see Bug#6717 for an example. We disable file name | |
| 492 ;; handlers, therefore. | |
| 493 (file-name-handler-alist nil)) | |
| 490 (setq class (/ url-http-response-status 100)) | 494 (setq class (/ url-http-response-status 100)) |
| 491 (url-http-debug "Parsed HTTP headers: class=%d status=%d" class url-http-response-status) | 495 (url-http-debug "Parsed HTTP headers: class=%d status=%d" class url-http-response-status) |
| 492 (url-http-handle-cookies) | 496 (url-http-handle-cookies) |
| 493 | 497 |
| 494 (case class | 498 (case class |