jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

make flyspell easier to disable

Browse source
This commit is contained in:
Bozhidar Batsov 2012-12-09 01:01:16 +02:00
parent d13d3933b7
commit 952ce0ebbd
2 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
README.md
View file

@ -250,8 +250,7 @@ personal config with the following bit of code:
If you're not fond of spellchecking on the fly: If you're not fond of spellchecking on the fly:
```lisp ```lisp
(add-hook 'text-mode-hook 'turn-off-flyspell t) (setq prelude-flyspell nil)
(add-hook 'prog-mode-hook 'turn-off-flyspell t)
``` ```
### Prelude Modules ### Prelude Modules

9
prelude/prelude-editor.el
View file

@ -49,7 +49,12 @@
:group 'prelude) :group 'prelude)
(defcustom prelude-whitespace nil (defcustom prelude-whitespace nil
"Non-nil values enable Prelude's whitespace visualisation." "Non-nil values enable Prelude's whitespace visualization."
:type 'boolean
:group 'prelude)
(defcustom prelude-flyspell t
"Non-nil values enable Prelude's flyspell support."
:type 'boolean :type 'boolean
:group 'prelude) :group 'prelude)
@ -209,7 +214,7 @@
ispell-extra-args '("--sug-mode=ultra")) ispell-extra-args '("--sug-mode=ultra"))
(autoload 'flyspell-mode "flyspell" "On-the-fly spelling checker." t) (autoload 'flyspell-mode "flyspell" "On-the-fly spelling checker." t)
(when (executable-find ispell-program-name) (when (and prelude-flyspell (executable-find ispell-program-name))
(add-hook 'message-mode-hook 'flyspell-mode) (add-hook 'message-mode-hook 'flyspell-mode)
(add-hook 'text-mode-hook 'flyspell-mode)) (add-hook 'text-mode-hook 'flyspell-mode))