          (lambda ()
            (evernote-open-note-common
             (evernote-command-get-note-list-from-tags
-             (evernote-completing-read-multiple "Tags used for search (comma separated form. default search all tags):"
-                                                (evernote-get-tag-cands (evernote-command-get-tag-list))
-                                                nil t))))))
+             (evernote-completing-read-multiple
+              "Tags used for search (comma separated form. default search all tags):"
+              (evernote-get-tag-cands (evernote-command-get-tag-list))
+              nil t))))))
     (evernote-command-with-auth open-note-func)))
 
 


(provide 'evernote-mode)

;;(setq debug-on-error t)


    (save-excursion (insert " " msg))
    (sit-for 1)
    (delete-region (point) (point-max))))


(defun evernote-display-completion-list (displayed-name-and-name-map)
  (setq buffer-read-only nil)
  (erase-buffer)
  (mapc (lambda (elem)
          (insert (car elem) "\n"))
        displayed-name-and-name-map)
  (setq buffer-read-only t))


(defun evernote-select-note-in-search-mode ()
  (interactive)
  (save-excursion
    (let (name)
      (setq name
            (cdr
             (assoc
              (buffer-substring
               (progn
                 (beginning-of-line)
                 (point))
               (progn
                 (end-of-line)
                 (point)))
              evernote-search-mode-displayed-name-and-name-map)))
      (kill-buffer (current-buffer))
      (save-excursion
        (set-buffer (window-buffer (active-minibuffer-window)))
        (save-excursion
          (delete-region
           (progn
             (goto-char (+ 1 (minibuffer-prompt-width)))
             (point))
           (progn
             (end-of-line)
             (point))))
        (insert name)
        (exit-minibuffer)))))


;;
