.dir-locals.el.in


1
2
3
4
5

((coq-mode . ((eval . (let* ((project-root (locate-dominating-file buffer-file-name "_CoqProject"))
                             (coqprime-folder (expand-file-name "@COQPRIME@" project-root))
                             (coq-path (parse-colon-path (or (getenv "COQPATH") ""))))
                        (unless (memql coqprime-folder coq-path)
                          (setenv "COQPATH" (mapconcat #'identity (cons coqprime-folder coq-path) path-separator))))))))