         ;; that it can create a new buffer.
         (setq quickopen-current-buffer nil)
 
+        ;; Close the old frame.
+        (when quickopen-current-frame
+          (delete-frame quickopen-current-frame)
+          (setq quickopen-current-frame nil)
+          )
+
         ;; restore window config
         (set-window-configuration quickopen-old-window-configuration)
         (setq quickopen-old-window-configuration nil)

              )
            )
      (setq quickopen-current-buffer-open-result-in-other-window other-window)
      (set-buffer quickopen-current-buffer)
      (term-mode)
      (term-char-mode)

(when (and quickopen-override-ff-find (quickopen-has-gui))
  (defadvice ff-get-file (around quickopen-ff-get-file (search-dirs filename-template &optional suffix-list other-window))
    (message "ff-get-file-quickopen-wrapper")
    (setq ad-return-value
          (let ((filename (ff-get-file-name search-dirs filename-template suffix-list)))
            (cond
             ((not filename)
