    (t
     (error (format "Can't read the annotation file `%s'" name)))
     )
-  buf)
-)
+  buf))
 
 (defun caml-types-mouse-ignore (event)
   (interactive "e")

  (let* ((type-path (caml-types-locate-type-file target-path))
         (type-date (nth 5 (file-attributes (file-chase-links type-path))))
         (target-date (nth 5 (file-attributes target-file))))
    (unless
        (and caml-types-annotation-tree
             type-date
             caml-types-annotation-date
             (not (caml-types-date< caml-types-annotation-date type-date)))
      (if (and type-date target-date (caml-types-date< type-date target-date))
          (error (format "`%s' is more recent than `%s'" target-path type-path)))
      (message "Reading annotation file...")

                    (widen)
                    (goto-char (point-min))
                    (caml-types-build-tree
                     (file-name-nondirectory target-path)))))
        (setq caml-types-annotation-tree tree
              caml-types-annotation-date type-date)
        (kill-buffer type-buf)
        (message "done"))
      )))

(defun caml-types-locate-type-file (target-path)
 (let ((sibling (concat (file-name-sans-extension target-path) ".annot")))
   (if (file-exists-p sibling)
       sibling
     (defun parent-dir (d) (file-name-directory (directory-file-name d)))
     (let ((project-dir (file-name-directory sibling))
           type-path)
       (while (not (file-exists-p
                    (setq type-path
                          (expand-file-name
                           (file-relative-name sibling project-dir)
                           (expand-file-name "_build" project-dir)))))
         (if (equal project-dir (parent-dir project-dir))
             (error (concat "No annotation file. "
                            "You should compile with option \"-annot\".")))
         (setq project-dir (parent-dir project-dir)))
       type-path))))

(defun caml-types-date< (date1 date2)
  (or (< (car date1) (car date2))
