branch: externals/auctex
commit 0ac0fa8ed3da67b02c7d8d5bf8ae6ac1a16cffd9
Author: Mosè Giordano <[email protected]>
Commit: Mosè Giordano <[email protected]>
Avoid searching with kpathsea in duplicate directories.
* tex.el (TeX-search-files-kpathsea): Remove duplicates
directories.
---
ChangeLog | 5 +++++
tex.el | 9 +++++----
2 files changed, 10 insertions(+), 4 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index f6cda86..aaa44d9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2015-09-26 Mos� Giordano <[email protected]>
+
+ * tex.el (TeX-search-files-kpathsea): Remove duplicates
+ directories.
+
2015-09-26 Tassilo Horn <[email protected]>
* tex.el (TeX--prettify-symbols-compose-p): New function.
diff --git a/tex.el b/tex.el
index 912073d..c390d15 100644
--- a/tex.el
+++ b/tex.el
@@ -4248,10 +4248,11 @@ non-nil, remove file extension."
(if (string-match ";" dirs) ";" ":")))
(unless TeX-kpathsea-path-delimiter
(throw 'no-kpathsea nil))
- (setq dirs (delete "" (split-string
- dirs (concat "[\n\r"
- TeX-kpathsea-path-delimiter
- "]+"))))
+ (setq dirs (TeX-delete-duplicate-strings
+ (delete "" (split-string
+ dirs (concat "[\n\r"
+ TeX-kpathsea-path-delimiter
+ "]+")))))
(if (eq scope 'global)
(delete "." dirs))
(setq extensions (concat "\\." (regexp-opt extensions t) "\\'")
