mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(url-http-find-free-connection): Don't kill the process

Browse source 
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.
This commit is contained in:
Stefan Monnier 2006-03-06 03:17:00 +00:00
parent 50e3e56454
commit 8dff56def5
2 changed files with 18 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/url/ChangeLog
View file

@ -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.

19
lisp/url/url-http.el
View file

@ -121,7 +121,10 @@ request.")
(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 @@ CBARGS as the arguments."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 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")