Mercurial > hg > xemacs-beta

comparison lisp/w3/url-http.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 7d55a9ba150c
children
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
1 ;;; url-http.el --- HTTP Uniform Resource Locator retrieval code 1 ;;; url-http.el --- HTTP Uniform Resource Locator retrieval code
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/04/03 20:34:59 3 ;; Created: 1997/04/07 13:24:34
4 ;; Version: 1.17 4 ;; Version: 1.18
5 ;; Keywords: comm, data, processes 5 ;; Keywords: comm, data, processes
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
563 (string-to-int port)))) 563 (string-to-int port))))
564 (if (not (processp process)) 564 (if (not (processp process))
565 nil 565 nil
566 (progn 566 (progn
567 (url-process-put process 'url (or proxy-info url)) 567 (url-process-put process 'url (or proxy-info url))
568 (set-process-sentinel process 'ignore)
568 (process-kill-without-query process) 569 (process-kill-without-query process)
569 (process-send-string process request) 570 (process-send-string process request)
570 (url-lazy-message "Request sent, waiting for response...") 571 (url-lazy-message "Request sent, waiting for response...")
571 (setq url-current-content-length nil) 572 (setq url-current-content-length nil)
572 (make-local-variable 'after-change-functions) 573 (make-local-variable 'after-change-functions)