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

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

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


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