   (let ((keymap (make-sparse-keymap)))
     (define-key keymap (kbd "C-<up>") 'merlin-type-enclosing-go-up)
     (define-key keymap (kbd "C-<down>") 'merlin-type-enclosing-go-down)
-    (define-key keymap (kbd "C-d") 'merlin--destruct-enclosing)
-    (define-key keymap (kbd "C-w") 'merlin--copy-enclosing)
+    (define-key keymap (kbd "C-d") 'merlin-destruct-enclosing)
+    (define-key keymap (kbd "C-w") 'merlin-copy-enclosing)
     keymap)
   "The local map to navigate type enclosing.")
 

      (insert txt)
      (indent-region start (point)))))

(defun merlin--destruct-enclosing ()
  (interactive)
  (let* ((bounds (cdr (elt merlin-enclosing-types merlin-enclosing-offset)))
         (result (merlin/call "case-analysis" "-start" (car bounds) "-end" (cdr bounds))))

  (interactive)
  (if (not merlin-enclosing-types)
    (when (merlin--type-enclosing-query)
      (merlin/destruct-enclosing))
    (merlin/destruct-enclosing)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; PACKAGE, PROJECT AND FLAGS MANAGEMENT ;;
