[elpa] externals/guess-language f610859 057/101: Find data files more robustly.

[Stefan Monnier]

branch: externals/guess-language
commit f610859cbb107dca3f9dd11800873114ff1bd514
Author: Titus von der Malsburg <address@hidden>
Commit: Titus von der Malsburg <address@hidden>

    Find data files more robustly.
---
 guess-language.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/guess-language.el b/guess-language.el
index 347fc7d..9aac68c 100644
--- a/guess-language.el
+++ b/guess-language.el
@@ -113,9 +113,10 @@ enter `nil'."
   "Load language statistics."
   (cl-loop
    for lang in guess-language-languages
-   for fname = (expand-file-name
-                (symbol-name lang)
-                (file-name-directory (cdr (find-function-library 
'guess-language-mode))))
+   for basedir = (file-name-directory (cdr (find-function-library 
'guess-language-mode)))
+   for fname = (let ((dir1 (expand-file-name (symbol-name lang) basedir))
+                     (dir2 (expand-file-name (symbol-name lang) 
(expand-file-name "trigrams" basedir))))
+                 (if (file-exists-p dir1) dir1 dir2))
    for trigrams = (with-temp-buffer
                     (insert-file-contents fname)
                     (split-string (buffer-string) "\n" t))