emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[patch] clear query-on-exit flag of idle url-http connections


From: Andreas Seltenreich
Subject: [patch] clear query-on-exit flag of idle url-http connections
Date: Thu, 29 Mar 2007 07:07:40 +0200
User-agent: Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.96 (gnu/linux)

Hi,

I'd like to propose the following patch to clear the query-on-exit
flag of idle url-http connections.

The fact that connections are kept alive for potential reuse for an
indefinite amount of time is really just an implementation detail, and
the user should not be bothered by this when exiting emacs.

regards,
andreas

Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/url/ChangeLog,v
retrieving revision 1.110
diff -c -0 -r1.110 ChangeLog
*** ChangeLog   11 Feb 2007 00:28:01 -0000      1.110
--- ChangeLog   29 Mar 2007 04:01:40 -0000
***************
*** 0 ****
--- 1,6 ----
+ 2007-03-29  Andreas Seltenreich  <address@hidden>
+ 
+       * url-http.el (url-http-mark-connection-as-busy)
+       (url-http-mark-connection-as-free): Clear query-on-exit flag on
+       idle connections.
+ 
Index: url-http.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/url/url-http.el,v
retrieving revision 1.50
diff -c -r1.50 url-http.el
*** url-http.el 4 Feb 2007 00:20:59 -0000       1.50
--- url-http.el 29 Mar 2007 04:01:42 -0000
***************
*** 87,92 ****
--- 87,93 ----
  
  (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,102 ****
--- 98,104 ----
    (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))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]