[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/guess-language e13f5a9 013/101: (Re)compile regexps whe
From: |
Stefan Monnier |
Subject: |
[elpa] externals/guess-language e13f5a9 013/101: (Re)compile regexps when necessary. |
Date: |
Sat, 23 Feb 2019 10:34:33 -0500 (EST) |
branch: externals/guess-language
commit e13f5a9c10b8560d3fb9c7808af2208271ee25ab
Author: Titus von der Malsburg <address@hidden>
Commit: Titus von der Malsburg <address@hidden>
(Re)compile regexps when necessary.
Only on demand, not at load time.
---
guess-language.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/guess-language.el b/guess-language.el
index 68dcafc..75baf6d 100644
--- a/guess-language.el
+++ b/guess-language.el
@@ -43,6 +43,9 @@ languages are:
:type 'integer
:group 'guess-language)
+(defvar guess-language-regexps nil
+ "The regular expressions that are used to count trigrams.")
+
(defun guess-language-load-trigrams ()
(cl-loop
for lang in guess-language-languages
@@ -59,9 +62,9 @@ languages are:
for regexp = (concat "\\(" regexp "\\)")
collect (cons (car lang) regexp))))
-(with-eval-after-load "guess-language" (guess-language-compile-regexps))
-
(defun guess-language (beginning end)
+ (unless guess-language-regexps
+ (guess-language-compile-regexps))
(when (cl-set-exclusive-or guess-language-languages (mapcar #'car
guess-language-regexps))
(guess-language-compile-regexps))
(let ((tally (cl-loop
- [elpa] branch externals/guess-language created (now 1107b93), Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 43eb329 004/101: Fixed version number., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 2792ac4 003/101: Guesses the language only if flyspell is unhappy with what we, Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language e4c103c 009/101: Compile regexps after load., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language e1db84e 006/101: Make this into a minor mode., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 5261d2f 010/101: Make defcustoms., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language e6ffe8d 011/101: Added some documentation., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 6ee7f77 005/101: Only guess when paragraph has some minimal length., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 30e23aa 001/101: Added initial proof of concept., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language e13f5a9 013/101: (Re)compile regexps when necessary.,
Stefan Monnier <=
- [elpa] externals/guess-language 24213cb 032/101: Added some data for testing., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 9b1048f 026/101: More idiomatic way to do local hooks., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 38d7ab1 017/101: README: minor fixes, Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 9117deb 027/101: Made it easier to add new languages., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 47ff6ad 022/101: Fix package, Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language c543465 023/101: Merge pull request #1 from syohex/fix-package, Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language a2c048c 016/101: Updated README., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language b0b1438 028/101: Made some functions non-interactive., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 8daec47 019/101: Depend on emacs 24., Stefan Monnier, 2019/02/23
- [elpa] externals/guess-language 84dda4b 012/101: Check whether regexps have to be recompiled., Stefan Monnier, 2019/02/23