       (display-buffer merlin-type-buffer)
       (with-current-buffer merlin-type-buffer
         (erase-buffer)
-        (insert (cdr result))))))))
+        (insert (cdr result)))))))
   
 
 (defun merlin-show-type-of-region ()

  (if (and bounds exp)
      (cons
       bounds
       (merlin-is-return (merlin-send-command "type" (list "expression" exp)))))


(defun merlin-type-of-expression (bounds exp)

  "Overlays for the pending errors")
(defvar merlin-completion-point nil
  "Stores the point of last completion (beginning of the prefix)")
(defvar merlin-enclosing-overlay nil
  "Stores the overlay during showing enclosing types")
(defvar merlin-enclosing-types nil
  "List containing the enclosing type")
(defvar merlin-enclosing-offset nil
  "Current offset in `merlin-enclosing-types'")

(defvar merlin-idle-point nil
  "Position of the last time we printed the type of point")
(defvar merlin-lock-point nil
