From 8ae85a27e06d120685b3c2ce398e7acc0a51011a Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 31 Mar 2007 09:44:44 +0000 Subject: [PATCH] (url-http-mark-connection-as-busy, url-http-mark-connection-as-free): Clear query-on-exit flag on idle connections. --- lisp/url/url-http.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index 1d4d64f0e4d..d83c827a6fb 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -87,6 +87,7 @@ request.") (defun url-http-mark-connection-as-busy (host port proc) (url-http-debug "Marking connection as busy: %s:%d %S" host port proc) + (set-process-query-on-exit-flag proc t) (puthash (cons host port) (delq proc (gethash (cons host port) url-http-open-connections)) url-http-open-connections) @@ -97,6 +98,7 @@ request.") (when (memq (process-status proc) '(open run connect)) (set-process-buffer proc nil) (set-process-sentinel proc 'url-http-idle-sentinel) + (set-process-query-on-exit-flag proc nil) (puthash (cons host port) (cons proc (gethash (cons host port) url-http-open-connections)) url-http-open-connections)) -- 2.39.5