Set process-query-on-exit-flag before kill-buffer

This commit is contained in:
Takafumi Arakaki 2012-06-12 17:38:02 +02:00
parent 10edb8d239
commit e931cc26d3

View file

@ -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 ()