branch: externals/guess-language
commit f610859cbb107dca3f9dd11800873114ff1bd514
Author: Titus von der Malsburg <[email protected]>
Commit: Titus von der Malsburg <[email protected]>
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))
