[elpa] externals/guess-language 844467f 036/101: Hopefully more robust way to find data files.

[Stefan Monnier]

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

    Hopefully more robust way to find data files.
---
 guess-language.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/guess-language.el b/guess-language.el
index 923e0d6..41d8776 100644
--- a/guess-language.el
+++ b/guess-language.el
@@ -66,8 +66,7 @@ languages are:
   ru: Russian
   sk: Slovak
   sl: Slovenian
-  sv: Swedish
-"
+  sv: Swedish "
   :type '(repeat symbol)
   :group 'guess-language)
 
@@ -105,11 +104,12 @@ little material to reliably guess the language."
 (defun guess-language-load-trigrams ()
   (cl-loop
    for lang in guess-language-languages
+   for fname = (expand-file-name (symbol-name lang)
+                                 (expand-file-name "trigrams"
+                                                   (file-name-directory
+                                                    (or load-file-name 
buffer-file-name))))
    for trigrams = (with-temp-buffer
-                    (insert-file-contents (concat
-                                           (file-name-directory (cdr 
(find-function-library 'guess-language-mode)))
-                                           "/trigrams/"
-                                           (symbol-name lang)))
+                    (insert-file-contents fname)
                     (split-string (buffer-string) "\n" t))
    collect (cons lang trigrams)))