   (if (assoc
        (evernote-get-minibuffer-string)
        evernote-note-displayed-name-attr-alist)
-      (exit-minibuffer)
+      (progn
+        (let ((completion-buf (get-buffer "*Evernote-Completions*")))
+          (if completion-buf
+              (kill-buffer completion-buf)))
+        (exit-minibuffer))
     (evernote-minibuffer-tmp-message "[No Match]")))
+
+
+(defun evernote-display-note-completion-buf (displayed-name-formatted-name-alist &optional word)
+  (let (formatted-name-displayed-name-alist completion-buf)
+    (setq formatted-name-displayed-name-alist
+          (mapcar (lambda (displayed-name)
+                    (cons
+                     (evernote-assoc-cdr
+                      displayed-name
+                      evenote-note-displayed-name-formatted-name-alist)
+                     displayed-name))
+                  (all-completions
+                   (if word
+                       word
+                     "")
+                   evenote-note-displayed-name-formatted-name-alist)))
+    (save-excursion
+      (setq completion-buf (get-buffer-create "*Evernote-Completions*"))
+      (set-buffer completion-buf)
+      (evernote-display-note-completion-list
+       formatted-name-displayed-name-alist)
+      (setq evernote-search-mode-formatted-name-displayed-name-alist
+            formatted-name-displayed-name-alist)
+      (evernote-search-mode))
+    (display-buffer completion-buf)))
 
 
 (defun evernote-display-note-completion-list (formatted-name-displayed-name-alist)

   (lambda ()
     (evernote-open-note-common
      (evernote-command-get-note-list-from-query
       (read-string "Query:"))))))


(defun evernote-do-saved-search ()

            "Saved search:"
            search-alist
            nil t)
           search-alist))))
      t))))


(defun evernote-open-note-common (note-command-output &optional display-completion)
  "Common procedure of opening a note"
  (let (note-attr note-guid note-name note-edit-mode note-tags opened-buf)
    (setq note-attr (evernote-read-note-attr note-command-output display-completion))
    (setq note-guid (evernote-assoc-cdr 'guid note-attr)
          note-name (evernote-assoc-cdr 'name note-attr)
          note-edit-mode (evernote-assoc-cdr 'edit-mode note-attr)
