branch: externals/guess-language
commit 85cfda48487483e3fb217d04bd854006e944189a
Author: Titus von der Malsburg <[email protected]>
Commit: Titus von der Malsburg <[email protected]>
Detect basedir in a way that’s compatible with old Emacs.
---
guess-language.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/guess-language.el b/guess-language.el
index e06bb91..83c8439 100644
--- a/guess-language.el
+++ b/guess-language.el
@@ -113,7 +113,7 @@ enter `nil'."
"Load language statistics."
(cl-loop
for lang in guess-language-languages
- for basedir = (file-name-directory (cdr (find-function-library
'guess-language-mode)))
+ for basedir = (file-name-directory (find-library-name "guess-language"))
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))
