 
 (defun snails-frame-is-active-p ()
   (and snails-frame
-       snails-parent-frame
        (frame-live-p snails-frame)
+       snails-frame-active-p
        (eq (window-frame (selected-window)) snails-frame)))
 
 (defun snails-candidate-get-info ()

(defvar snails-frame nil
  "The popup frame use for show search result.")

(defvar snails-parent-frame nil
  "The parent frame of popup frame.")

(defvar snails-select-line-overlay nil

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

    ;; Configuration frame.
