 
 (defun merlin-get-packages ()
   "Get the list of available findlib package."
-  (merlin--acquire-buffer)
   (append (merlin/send-command '(find list)) nil))
 
 (defun merlin-use (pkg)
   "Use PKG in the current session of merlin."
   (interactive
    (list (completing-read-multiple "Package to use: " (merlin-get-packages))))
-  (merlin--acquire-buffer)
   (unless (listp pkg) (setq pkg (list pkg)))
   (let* ((r (merlin/send-command (list 'find 'use pkg)))
          (failed (assoc 'failures r)))

(defun merlin-extension-disable (name)
  "Disable merlin support for language extension NAME."
  (interactive (list (completing-read "Extension: "
                                      (progn
                                        (merlin--acquire-buffer)
                                        (merlin/send-command '(extension list enabled))))))
  (merlin--acquire-buffer)
  (let* ((r (merlin/send-command `(extension disable (,name))))
         (failed (assoc 'failures r)))
    (when failed (message "%s" (cdr failed))))

(defun merlin-type-expr (exp)
  "Prompt the user for expression EXP, then show its type."
  (interactive "s# ")
  (merlin/sync-to-point)
  (let ((on-success (lambda (type) (merlin--type-display nil type nil)))
        (on-error   (lambda (err)
