 Note that works only if you use the default grouping function. If
 you are using your own grouping function, you should include a
 field logfile (see `merlin-start-process')"
+  :group 'merlin :type 'filename)
+
+(defcustom merlin-arrow-keys-type-enclosing t
+  "If non-nil, after a type enclosing, up and down arrow are used to go up and down the AST."
   :group 'merlin :type 'filename)
 ;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Internal variables ;;

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

;;;;;;;;;;;;;;;;
;; MODE SETUP ;;

    (merlin-sync-to-point)
    (if (region-active-p)
        (merlin-type-region)
      (when (merlin-type-enclosing-query)
        (merlin-type-enclosing-go-up))))
  (if merlin-arrow-keys-type-enclosing
      (merlin-event-loop merlin-type-enclosing-map
                         '((up . merlin-type-enclosing-go-up)
                           (down . merlin-type-enclosing-go-down)))))

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