[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/guess-language 6ee7f77 005/101: Only guess when paragra
From: |
Stefan Monnier |
Subject: |
[elpa] externals/guess-language 6ee7f77 005/101: Only guess when paragraph has some minimal length. |
Date: |
Sat, 23 Feb 2019 10:34:31 -0500 (EST) |
branch: externals/guess-language
commit 6ee7f775e72173c9ca11faca6d763721712278cd
Author: Titus von der Malsburg <address@hidden>
Commit: Titus von der Malsburg <address@hidden>
Only guess when paragraph has some minimal length.
---
guess-language.el | 19 ++++++++++++-------
1 file changed, 12 insertions(+), 7 deletions(-)
diff --git a/guess-language.el b/guess-language.el
index 4cd4b7c..ef98cc3 100644
--- a/guess-language.el
+++ b/guess-language.el
@@ -29,6 +29,8 @@
(defvar guess-language-languages '(en de))
+(defvar guess-language-min-paragraph-length 40)
+
(defun guess-language-load-trigrams ()
(cl-loop
for lang in guess-language-languages
@@ -81,13 +83,16 @@ ispell dictionaries accordingly."
(defun guess-language-autoset-and-spellcheck (beginning end doublon)
"Runs `guess-language-autoset' and then the flyspell on the
current paragraph."
- (let ((old-dictionary ispell-local-dictionary))
- (guess-language-autoset)
- (unless (string= old-dictionary ispell-local-dictionary)
- (remove-hook 'flyspell-incorrect-hook
#'guess-language-autoset-and-spellcheck)
- (flyspell-region (save-excursion (backward-paragraph) (point))
- (save-excursion (forward-paragraph) (point)))
- (add-hook 'flyspell-incorrect-hook
#'guess-language-autoset-and-spellcheck))))
+ (let ((old-dictionary ispell-local-dictionary)
+ (beginning (save-excursion (backward-paragraph) (point)))
+ (end (save-excursion (forward-paragraph) (point))))
+ (when (> (- end beginning) guess-language-min-paragraph-length)
+ (guess-language-autoset)
+ (unless (string= old-dictionary ispell-local-dictionary)
+ (remove-hook 'flyspell-incorrect-hook
#'guess-language-autoset-and-spellcheck)
+ (flyspell-region (save-excursion (backward-paragraph) (point))
+ (save-excursion (forward-paragraph) (point)))
+ (add-hook 'flyspell-incorrect-hook
#'guess-language-autoset-and-spellcheck)))))
(add-hook 'flyspell-incorrect-hook #'guess-language-autoset-and-spellcheck)
- [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 <=
- [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, 2019/02/23
- [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