diff options
| author |  Jason Gross <jgross@mit.edu> | 2017-10-07 15:04:31 -0400 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2017-10-07 15:14:56 -0400 |
| commit | 6eea812df480ec9dfff175e8910e32eb20658b8b (patch) | |
| tree | b12b5378a39acbeb3ee9b93642076bf00ebb894a /.dir-locals.el | |
| parent | 8f574164df9968eab1ccc0b7d97bbfe84eb135c3 (diff) | |
Fix .dir-locals.el to work on Windows
Previously, it was splitting on : and adding extra paths with, e.g., c:/
Diffstat (limited to '.dir-locals.el')
| -rw-r--r-- | .dir-locals.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/.dir-locals.el b/.dir-locals.el index 5b1fb274b..d7155993d 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -1,5 +1,5 @@ ((coq-mode . ((eval . (let* ((project-root (locate-dominating-file buffer-file-name "_CoqProject")) (coqprime-folder (expand-file-name "coqprime" project-root)) - (coq-path (split-string (or (getenv "COQPATH") "") ":" t))) - (unless (memql coqprime-folder coq-path) - (setenv "COQPATH" (mapconcat #'identity (cons coqprime-folder coq-path) ":")))))))) + (coq-path (split-string (or (getenv "COQPATH") "") path-separator t))) + (unless (member coqprime-folder coq-path) + (setenv "COQPATH" (mapconcat #'identity (cons coqprime-folder coq-path) path-separator)))))))) |