branch: externals/guess-language
commit 84dda4b7ed5e9848d7ff66dce2cfa929989b647c
Author: Titus von der Malsburg <[email protected]>
Commit: Titus von der Malsburg <[email protected]>
Check whether regexps have to be recompiled.
When the list of languages has been changed.
---
guess-language.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/guess-language.el b/guess-language.el
index 3a040da..68dcafc 100644
--- a/guess-language.el
+++ b/guess-language.el
@@ -62,6 +62,8 @@ languages are:
(with-eval-after-load "guess-language" (guess-language-compile-regexps))
(defun guess-language (beginning end)
+ (when (cl-set-exclusive-or guess-language-languages (mapcar #'car
guess-language-regexps))
+ (guess-language-compile-regexps))
(let ((tally (cl-loop
for lang in guess-language-regexps
for regexp = (cdr lang)
