Commit 947612be authored by Magnus Henoch's avatar Magnus Henoch
Browse files

(url-retrieve-synchronously): Allow quitting when inhibit-quit is t.

parent 86cb1447
2006-11-08 Magnus Henoch <mange@freemail.hu>
* url.el (url-retrieve-synchronously): Allow quitting when
inhibit-quit is t.
2006-11-03 Shun-ichi GOTO <gotoh@taiyo.co.jp> (tiny change)
* url-http.el (url-http-handle-authentication): If there are
......
......@@ -246,10 +246,16 @@ no further processing). URL is either a string or a parsed URL."
;; interrupt it before it got a chance to handle process input.
;; `sleep-for' was tried but it lead to other forms of
;; hanging. --Stef
(unless (or (accept-process-output proc) (null proc))
(unless (or (with-local-quit
(accept-process-output proc))
(null proc))
;; accept-process-output returned nil, maybe because the process
;; exited (and may have been replaced with another).
(setq proc (get-buffer-process asynch-buffer))))))
;; exited (and may have been replaced with another). If we got
;; a quit, just stop.
(when quit-flag
(delete-process proc))
(setq proc (and (not quit-flag)
(get-buffer-process asynch-buffer)))))))
asynch-buffer)))
(defun url-mm-callback (&rest ignored)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment