# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1141615020 0
# Node ID 64b44b9968277c9a1db908c0c998a628a9dced47
# Parent  72ea16b87901dfa930e65873bd3bf5627e5d88a3
(url-http-find-free-connection): Don't kill the process
when killing the temp buffer.
(url-http-symbol-value-in-buffer): Massage to make it clear to the
byte-compiler that the function is defined.

diff -r 72ea16b87901 -r 64b44b996827 lisp/url/ChangeLog
--- a/lisp/url/ChangeLog	Mon Mar 06 02:22:35 2006 +0000
+++ b/lisp/url/ChangeLog	Mon Mar 06 03:17:00 2006 +0000
@@ -1,3 +1,10 @@
+2006-03-05  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* url-http.el (url-http-find-free-connection): Don't kill the process
+	when killing the temp buffer.
+	(url-http-symbol-value-in-buffer): Massage to make it clear to the
+	byte-compiler that the function is defined.
+
 2006-02-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* url.el (url-redirect-buffer): New var.
diff -r 72ea16b87901 -r 64b44b996827 lisp/url/url-http.el
--- a/lisp/url/url-http.el	Mon Mar 06 02:22:35 2006 +0000
+++ b/lisp/url/url-http.el	Mon Mar 06 03:17:00 2006 +0000
@@ -121,7 +121,10 @@
          (let ((buf (generate-new-buffer " *url-http-temp*")))
            ;; `url-open-stream' needs a buffer in which to do things
            ;; like authentication.  But we use another buffer afterwards.
-           (unwind-protect (url-open-stream host buf host port)
+           (unwind-protect
+               (let ((proc (url-open-stream host buf host port)))
+                 ;; Drop the temp buffer link before killing the buffer.
+                 (set-process-buffer proc nil))
              (kill-buffer buf)))))))
 
 ;; Building an HTTP request
@@ -1109,15 +1112,15 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; file-name-handler stuff from here on out
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(if (not (fboundp 'symbol-value-in-buffer))
-    (defun url-http-symbol-value-in-buffer (symbol buffer
-						   &optional unbound-value)
+(defalias 'url-http-symbol-value-in-buffer
+  (if (fboundp 'symbol-value-in-buffer)
+      'symbol-value-in-buffer
+    (lambda (symbol buffer &optional unbound-value)
       "Return the value of SYMBOL in BUFFER, or UNBOUND-VALUE if it is unbound."
       (with-current-buffer buffer
-	(if (not (boundp symbol))
-	    unbound-value
-	  (symbol-value symbol))))
-  (defalias 'url-http-symbol-value-in-buffer 'symbol-value-in-buffer))
+        (if (not (boundp symbol))
+            unbound-value
+          (symbol-value symbol))))))
 
 (defun url-http-head (url)
   (let ((url-request-method "HEAD")