     (setq merlin-enclosing-offset (1- merlin-enclosing-offset))
     (merlin--type-enclosing-go)))
 
-(defun merlin--copy-enclosing ()
+(defun merlin-copy-enclosing ()
   (interactive)
   (let ((data (elt merlin-enclosing-types merlin-enclosing-offset)))
     (when (cddr data)


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

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

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