   (interactive)
   (if (not merlin-enclosing-types)
     (when (merlin--type-enclosing-query)
-      (merlin--destruct-enclosing))
-    (merlin--destruct-enclosing)))
+      (merlin/destruct-enclosing))
+    (merlin/destruct-enclosing)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; PACKAGE, PROJECT AND FLAGS MANAGEMENT ;;

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


(define-obsolete-function-alias 'merlin-project-check 'merlin-configuration-check)

(define-obsolete-function-alias 'merlin--copy-enclosing 'merlin-copy-enclosing)
(define-obsolete-function-alias 'merlin--destruct-enclosing 'merlin-destruct-enclosing)


;;;###autoload
(define-minor-mode merlin-mode
  "Minor mode for interacting with a merlin process.
