[elpa] externals/auctex 0ac0fa8 57/78: Avoid searching with kpathsea in duplicate directories.

[Tassilo Horn]

branch: externals/auctex
commit 0ac0fa8ed3da67b02c7d8d5bf8ae6ac1a16cffd9
Author: Mosè Giordano <address@hidden>
Commit: Mosè Giordano <address@hidden>

    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  <address@hidden>
+
+       * tex.el (TeX-search-files-kpathsea): Remove duplicates
+       directories.
+
 2015-09-26  Tassilo Horn  <address@hidden>
 
        * 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) "\\'")