     (when (and current-process
                (process-live-p current-process))
       (kill-process current-process))
-    ;; Update new process with backend name.
-    (puthash name process snails-backend-subprocess-hash)))
+    ))
+
+(defun snails-update-backend-subprocess (name process)
+  "Update subprocess of async backend."
+  ;; Update new process with backend name.
+  (puthash name process snails-backend-subprocess-hash))
 
 (defun snails-create-async-process (name input input-ticker build-command candidate-filter update-callback)
   "Create subprocess of async backend.

;;

;;; Change log:
;;
;; 2019/07/22
;;      * Delete other window first, make sure only one window in frame.

;; Maintainer: Andy Stewart <lazycat.manatee@gmail.com>
;; Copyright (C) 2019, Andy Stewart, all rights reserved.
;; Created: 2019-05-16 21:26:09
;; Version: 1.8
;; Last-Updated: 2019-07-23 12:19:19
;;           By: Andy Stewart
;; URL: http://www.emacswiki.org/emacs/download/snails.el
;; Keywords:
