             "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)

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


(defun evernote-do-saved-search ()

   search-command-out))


(defun evernote-read-note-attr (note-command-out &optional display-completion)
  "Prompts a note name and returns a note attribute"
  (let ((name-num-hash (make-hash-table :test #'equal))
        evernote-note-displayed-name-attr-alist ; used in evernote-search-mode
