[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 2f7b930: auto-correct: Defer loading of flyspell support u
From: |
Ian Dunn |
Subject: |
[elpa] master 2f7b930: auto-correct: Defer loading of flyspell support until after flyspell has been enabled |
Date: |
Sat, 21 Oct 2017 16:56:29 -0400 (EDT) |
branch: master
commit 2f7b9302f5674ae0ac7606bb628afc86fb0c4c39
Author: Ian Dunn <address@hidden>
Commit: Ian Dunn <address@hidden>
auto-correct: Defer loading of flyspell support until after flyspell has
been enabled
* packages/auto-correct/auto-correct.el: Bump version
(auto-correct-defer-flyspell-support):
(auto-correct-set-enable-flyspell-support): New functions.
(auto-correct-enable-flyspell-support): Use them for customization
setting.
---
packages/auto-correct/auto-correct.el | 34 +++++++++++++++++++++++++++-------
1 file changed, 27 insertions(+), 7 deletions(-)
diff --git a/packages/auto-correct/auto-correct.el
b/packages/auto-correct/auto-correct.el
index d9e1039..3d65f15 100644
--- a/packages/auto-correct/auto-correct.el
+++ b/packages/auto-correct/auto-correct.el
@@ -5,7 +5,7 @@
;; Author: Ian Dunn <address@hidden>
;; Maintainer: Ian Dunn <address@hidden>
;; Keywords: editing
-;; Version: 1.1.2
+;; Version: 1.1.3
;; This file is part of GNU Emacs.
@@ -234,15 +234,32 @@ Activation means adding `auto-correct-flyspell-insert' to
#'auto-correct-flyspell-insert)
(remove-function flyspell-insert-function #'auto-correct-flyspell-insert)))
+;; Silence the byte-compiler; this will be enabled shortly
+(defvar auto-correct-enable-flyspell-support)
+
+(defun auto-correct-defer-flyspell-support ()
+ ;; Don't fully activate flyspell support until after it's loaded.
+ (with-eval-after-load 'flyspell
+ (auto-correct-handle-support
+ auto-correct-enable-flyspell-support
+ 'auto-correct--activate-flyspell-support)))
+
+(defun auto-correct-set-enable-flyspell-support (sym val)
+ (set sym val)
+ (auto-correct-defer-flyspell-support))
+
(defcustom auto-correct-enable-flyspell-support t
- "Whether to automatically correct corrections made in flyspell."
+ "Whether to automatically correct corrections made in flyspell.
+
+Support will not be enabled until after flyspell has been loaded.
+
+Use the following to set this manually to NEW-VALUE:
+
+(setq auto-correct-enable-flyspell-support NEW-VALUE)
+(auto-correct-defer-flyspell-support)"
:group 'auto-correct
:type 'boolean
- :set (lambda (sym val)
- (set sym val)
- (auto-correct-handle-support
- val
- 'auto-correct--activate-flyspell-support)))
+ :set 'auto-correct-set-enable-flyspell-support)
;; Ispell support
@@ -293,6 +310,9 @@ the result as a correction."
#'auto-correct--ispell-handler)
(advice-remove 'ispell-command-loop #'auto-correct--ispell-handler)))
+;; We don't defer ispell support because adding advice will work even if the
+;; feature hasn't been loaded yet.
+
(defcustom auto-correct-enable-ispell-support t
"Whether to automatically correct corrections made in Ispell."
:group 'auto-correct
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 2f7b930: auto-correct: Defer loading of flyspell support until after flyspell has been enabled,
Ian Dunn <=