branch: externals/guess-language
commit f21d2590b5a8c90fda23ac59b3561672782701a6
Author: Titus von der Malsburg <[email protected]>
Commit: Titus von der Malsburg <[email protected]>
Simplification.
---
guess-language.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/guess-language.el b/guess-language.el
index 41d8776..5637d35 100644
--- a/guess-language.el
+++ b/guess-language.el
@@ -163,12 +163,11 @@ current paragraph."
(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-maybe)
(let ((flyspell-issue-welcome-flag nil)
- (flyspell-issue-message-flag nil))
+ (flyspell-issue-message-flag nil)
+ (flyspell-incorrect-hook nil))
(flyspell-region (save-excursion (backward-paragraph) (point))
- (save-excursion (forward-paragraph) (point)))
- (add-hook 'flyspell-incorrect-hook
#'guess-language-autoset-and-spellcheck-maybe))))))
+ (save-excursion (forward-paragraph) (point))))))))
(define-minor-mode guess-language-mode
"Toggle guess-language mode.
