             "Saved search:"
             search-alist
             nil t)
-           search-alist))))))))
-
-
-(defun evernote-open-note-common (note-command-output)
+           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))
+    (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)

;;; evernote-mode.el ---

;;
;;  Copyright 2010 Yusuke Kawakami
;;

  (if (assoc
       (evernote-get-minibuffer-string)
       evernote-note-displayed-name-attr-alist)
      (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)
