From e931cc26d3b5ca7f969352f3983cbf5d1a1a7372 Mon Sep 17 00:00:00 2001
From: Takafumi Arakaki <aka.tkf@gmail.com>
Date: Tue, 12 Jun 2012 17:38:02 +0200
Subject: [PATCH] Set process-query-on-exit-flag before kill-buffer

---
 ein-query.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/ein-query.el b/ein-query.el
index 38cdc3b..b544816 100644
--- a/ein-query.el
+++ b/ein-query.el
@@ -196,6 +196,9 @@ is killed immediately after the execution of this function.
     (ein:safe-funcall-packed error :symbol-status 'timeout)
     (let ((proc (get-buffer-process buffer)))
       (delete-process proc)
+      ;; It seems that `delete-process' resets `process-query-on-exit-flag'.
+      ;; So, setting this flag must be placed here.
+      (set-process-query-on-exit-flag proc nil)
       (kill-buffer buffer))))
 
 (defun ein:query-ajax-cancel-timer ()