 (defun merlin-flags-clear ()
   "Clear flags for the current project"
   (interactive)
+  (merlin--acquire-buffer)
   (let* ((r (merlin-send-command '(flags clear)))
          (failed (assoc 'failures r)))
     (when failed (message "%s" (cdr failed))))

(defun merlin-flags-add (flag-string)
  "Set FLAG for the current project"
  (interactive "sFlag to add: ")
  (let* ((flag-list (split-string flag-string))
         (r (merlin-send-command (list 'flags 'add flag-list)))
         (failed (assoc 'failures r)))

             (version (shell-command-to-string command))
             (version (replace-regexp-in-string "\n$" "" version)))
        (message "%s (from shell)" version))
    (progn
      (merlin--acquire-buffer)
      (message "%s" (merlin/send-command '(version))))))

(defun merlin-command ()
  "Return path of ocamlmerlin binary selected by configuration"
