   ;; Delete frame first.
   (delete-frame snails-frame)
   (setq snails-frame nil)
-  (setq snails-parent-frame nil)
+  (setq snails-frame-active-p nil)
   ;; Kill all subprocess and process buffers.
   (maphash
    (lambda (name process)

             (vertical-scroll-bars . nil)
             (horizontal-scroll-bars . nil)
             (undecorated . t)
             )))

    ;; Configuration frame.


(defun snails-frame-is-active-p ()
  (and snails-frame
       (frame-live-p snails-frame)
       snails-frame-active-p
       (eq (window-frame (selected-window)) snails-frame)))

(defun snails-candidate-get-info ()
