           (elt
            (merlin-send-command "type" (list "enclosing" (merlin-unmake-point (point))))
            1))))
+    (setq merlin-last-point-type (point))
     (setq merlin-enclosing-types list)
     (setq merlin-enclosing-offset -1)))
 

    (merlin-check-synchronize)
    (if (equal point (merlin-goto-phrase "current" 0))
        (merlin-goto-phrase "prev" 0))))

(defun merlin-to-point ()
  "Update the merlin to the current point, reporting error."

    (define-key merlin-map (kbd "C-c C-f C-<down>") 'merlin-type-enclosing-go-down)
    (define-key merlin-map (kbd "C-c C-n") 'merlin-next-phrase)
    (define-key merlin-map (kbd "C-c C-p") 'merlin-prev-phrase)
    (define-key merlin-map (kbd "C-<down>") 'merlin-next-phrase-or-go-down)
    (define-key merlin-map (kbd "C-<up>") 'merlin-prev-phrase-or-go-up)
    (define-key merlin-menu-map [customize]
      '("Customize merlin-mode" . merlin-customize))
    (define-key merlin-menu-map [separator]
