Process instance is no available in the URL callback

This commit is contained in:
Takafumi Arakaki 2012-06-12 19:47:26 +02:00
parent fa681ff2d5
commit 936f652369

View file

@ -170,7 +170,9 @@ is killed immediately after the execution of this function.
(ein:query-ajax-cancel-timer)
;; It seems that `delete-process' resets `process-query-on-exit-flag'.
;; So, setting this flag must be placed here, just before killing buffer.
(set-process-query-on-exit-flag (get-buffer-process (current-buffer)) nil)
(ein:aif (get-buffer-process (current-buffer))
(progn (set-process-query-on-exit-flag it nil)
(ein:log 'debug "(set-process-query-on-exit-flag %S nil)" it)))
(let* ((buffer (current-buffer)) ; `parser' could change buffer...
(response-status url-http-response-status)
(status-code-callback (cdr (assq response-status status-code)))