diff options
| author |  Jason Gross <jgross@mit.edu> | 2017-01-07 20:04:32 -0500 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2017-01-07 20:04:32 -0500 |
| commit | 6e6edce5c42bba8a6e42f3ebf304ec853deb3cc8 (patch) | |
| tree | ef3223ad69f3ffe92b841ca88c6aba3410dea863 | |
| parent | 06e521e61835022bb8fc2368fc190cb31a077687 (diff) | |
Better version of path separator usage
Thanks, @cpitclaudel !
| -rw-r--r-- | .dir-locals.el.in | 4 | ||||
| -rw-r--r-- | Makefile | 4 |
2 files changed, 3 insertions, 5 deletions
diff --git a/.dir-locals.el.in b/.dir-locals.el.in index 5945f1a68..3e674b5b7 100644 --- a/.dir-locals.el.in +++ b/.dir-locals.el.in @@ -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") "") "@PATHSEP@" t))) + (coq-path (parse-colon-path (or (getenv "COQPATH") "")))) (unless (memql coqprime-folder coq-path) - (setenv "COQPATH" (mapconcat #'identity (cons coqprime-folder coq-path) "@PATHSEP@")))))))) + (setenv "COQPATH" (mapconcat #'identity (cons coqprime-folder coq-path) path-separator)))))))) @@ -10,8 +10,6 @@ VERBOSE?= SHOW := $(if $(VERBOSE),@true "",@echo "") HIDE := $(if $(VERBOSE),,@) -PATHSEP?=: - .PHONY: coq clean update-_CoqProject cleanall install \ install-coqprime clean-coqprime coqprime \ specific non-specific \ @@ -132,4 +130,4 @@ printenv:: @echo "COQPATH = $$COQPATH" .dir-locals.el:: - sed 's:@COQPRIME@:$(COQPRIME_FOLDER):g' .dir-locals.el.in | sed s'/@PATHSEP@/$(PATHSEP)/g' > $@ + sed 's:@COQPRIME@:$(COQPRIME_FOLDER):g' .dir-locals.el.in > $@ |